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SOURCE LANGUAGE SELECTION’ 


IN THE EARLY ‘DESIGN STAGES OF THE COBOL COMPILER* CONSIDERATION was 
GIVEN TO IMPLEMENTING PROPER SUBSETS OF THE COBOL SOURCE LANGUAGE 
AS SPECIFIED IN THE USA STANDARD COBOL MANUALs IT WAS FOUND THaT 
IMPLEMENTATION OF A SUBSET HAD THE FOLLOWING DISADVANTAGES! 


te THE SUBSETS SPECIFIED. WERE VERY LIMITED WITH MANY 
RESTRICTORSs EG! NUMBER OF UNIQUE DATA*NAMES» NO NESTED 
REDFFINESs ETC. | 


2. THE LANGUAGE ELEMENTS SEEMED TO ‘BE ARBITARILY SELECTED ON 
THE BASIS OF REDUNDANCY RATHER THAN OIFFICULTY oF. 
IMPLEMENTATION® 7 7 


3s THE SUBSETS SPECIFIED WERE DIFFICULT TO USE. EsGe THE USER 
HAD TO REMEMBER IF HE COULD SAY “ZERO” OR "ZEROES"s 


fe ALTHOUGH UPWARD COMPATABILITY TO 83500 cCogoL COULD RE. 
ASSURED» COMPATABILITY IN THE OTHER DIRECTION WAS NOT SO 
SAFE 8 2 Sikes eg os 


5s THE COST OF DEVELOPMENT» MAINTAINENCEs AND CHECK OUT OF A 
MULTIPLICITY OF COMPILERS SEEMED UNREASONABLE. 


tT WAS “THEREFORE DECIDED THAT. THE HIGH LEVEL OF EACH LANGUAGE MODULE” 
WOULD © “BE IMPLEMENTED WITH AN EYE TOWARD .COMPATABILITY WITH THE 
B3500 LANGUAGE EXTENSIONS» AN ATTEMPT TO "SHOEHORN® THE COMPILER 
INTO -SMALL MEMORY MACHINES WOULD THEN BE CONSIDERED WHEN THE 
IMPLEMENTATION REQUIREMENTS WERE KNOWse ~ | | 


MULTI@PHASE COMPILATION. 


THE ADVANTAGES OF *MULTI®PASS" OR MULTI=PHASE COMPILATION ARE? 


THE 


As 


26 


le 


Be 


‘BETTER UTILIZATION DF SMALL MEMORY STORES. THE ORIGINAL 


TEXT IS TRANSFORMED TO A MORE CONVENIENT FORM BY PASSING 
IT AGAINST A PART OF THE COMPILER» THE TRANSFORMED TEXT IS 
PASSED TO THE NEXT PHASE VIA AN INTERMEDIATE WORK FILEs IN 
THIS WAY THE DATA IS MANAGED IN A SOMEWHAT SEQUENTIAL 
MANNERs MINIMIZING RANDOM OVERLAYING AS IN A DATA PAGING 
OR: VITUAL MEMORY MANAGEMENT SYSTEMs IN THE SAME WAY CONE 
OVERLAYS ARE MINIMIZED BECAUSE ONLY A PART OF THE CODE Is 
INVOKED TO TRANSFORM ALL THE DATA FOR THE PHASEs 


IT IS POSSTRLE FOR ONE PHASE TO BE CODED AND CHECKED QUT 
BEFORE A PRIOR PHASE BY BUILDING THE INTERMEDIATE FILES 
REQUIRED WITH ANOTHER PROGRAMs THIS TS ESPECIALLY 
IMPORTANT WHEN SIMULATING WHERE THE COST OF SIMULATING ALL 
PRIOR PHASES IS PROHIBITIVEs ”.. 


DISADVANTAGES OF “MULTISPHASE eanetbelee ARES 


* * 


THE FORMAT OF EACH TOKEN » AS” 17 APPEARS TO EACH PASS~s 


“MUST BE WELL DEFINEDs IF TOKEN FORMATS CHANGEs THERE ARE 


MANY PLACES THAT CAN BE ‘APFECTEDS 


EXTRA CODE IS REQUIRED IN EACH PHASE TO GET AND PUT THE 


TOKENS. 


IF A LARGE MEMORY IS AVAILABLE> THERE. IS NO EASY WAY TO 
COMAINE PHASESe EsGe LABEL AND. DATASNAME QUALIFICATION 
RESOLUTION COULO BE COMBINED IF THERE WAS SPACE FOR THE 
INTERMEDIATE: TABLESs 


A CERTAIN FIXED OVERHEAD IS. iennee FOR OPENING AND 


CLOSING OF THE INTERMEDIATE FILES EVEN FOR A MINIMUM 


SOURCE LANGUAGE DECKs 


DEBUGGING CAPABILITIES. 


A VARIETY OF DEBUGGING OUTPUT HAS BEEN INCORPORATED IN THE COROL 
‘COMPILER IN ORDER TO MINIMIZE THE DEBUGGING ERROR OETECTION AND 
ERROR CORRECTION TIMEs THIS GUTPUT IS PRINTED WHEN THE FOLLOWING 
DOLLAR CARD RESERVED WORDS ARE USED! 
<NO> PARSE? INITIAL PARSING 
<NO> DICT3 DICTIONARY PROCESSING: 
<NO> DNQUAL!  DATA@NAME QUALIFICATION RESOLUTION 
“<NO> LQUAL! LABEL QUALIFICATION RESOLUTION 
<NO> MOIGE! MERGECNOTEt "MERGE® HAS ANOTHER MEANING) 
<NO> DATSYNt DATA DIVISION SYNTAX CHECKING 
‘<NO> EXPLOMDEt EXPLODE 
<NO> PROSYN! PROCEDURE DIVISION SYNTAX CHECKING 
<NO> CODEGENt CODE GENERATION 
<NO> FIXUP# FIXUP THE CODEFILE 
WHEN THIS NPTION IS USED» A FORMATTED TOKEN AS SEEN.BY “THE GET AND 
PUT PROCEDURES FOR THAT PHASE IS PRINTED» IN ADDITION» THE NAME OF 
EACH PROCEDURE AND ANY PERTINANT VARIABLES IS PRINTED UPON ENTERING 
THE PROCEDUREs MOST RECURSIVE PROCEDURES ALSO MONITOR THEIR ExtT 
POINTS FOR EASE OF DERUGGINGs IT IS POSSIGLE TO SEE EACH PROCESS» 


FOR THE DURATION OF SEVERAL CARDS» BY TURNING MONITOR ON OR OFF FOR 
THE DESTRED RMASECS 2s 


OYNAMIC MEMORY« 


WHEN DESIGNING A COMPILER FOR MANY MEMORY CONFIGURATIONS» IT IS 
IMPORTANT TO EFFECTIVELY UTILIZE ADDITIONAL MEMORY IF IT IS 
AVAILABLEs THE COBOL COMPILER ACCOMPLISHES THIS BY MANAGING THE 
DYNAMIC SPACE DECLARED AT COMPILE TIME. | 


A CERTAIN MINIMUM SPACE IS REQUIRED FOR BUILDING LISTS AND TABLES 
DURING THE DIFFERENT PHASESs« ASSOCIATED WITH THIS MINIMUM SPACE ARE 
LIMITS  EseGs THE NUMBER OF DATA#=NAMESs PROCEDURE“NAMES» ETCe IF A 
PARTICULAR SUURCE PROGRAM EXCEEDS ANY GF THESE LIMITSs MORE SPace 
MUST BE DEDICATED BY INCREASING THE DYNAMIC SPACE AND RECOMPILINGs 
AN ATTEMPT HAS BEEN MANE TO MAKE THESE RESTRICTIONS “REASONABLE'. 


IF MORE SPACE IS AVAILABLEs THE COMPILER IS DESIGNED To USE Twat 
SPACE FOR A SIGNIFICANT SPEED GAINa 


INTERMEDIATE FILE DESIGN. 


IN ORDER TO mINIMIZE THE INTERMEDIATE FILE SIZES» INFORMATION ABUT 
THE ORIGINAL TEXT TS DISTRIBUTED TO SEVERAL FILES WHICH ARE ORDERED 
TO. EACH OTHERs THE INDIVIDUAL FILES ARE THEN PROCESSED WITHOUT THE 
NEED TO COPY © EXTRAWEOQUS INFORMATION WHEN ALL OF THE 
TRANSFORMATIONS ARE COMPLETE THE FILES ARE MERGEDs 


CARE MUST BE TAKEN TO PRESERVE THE ORIGINAL ORDERING OF THE FILESe 


THE OITAGRAM BELOW SHOWS THE FLOW OF THE INTERMEDIATE FILES FROM ONE 
PHASE TO ANNTHERs THE FIRST RECORD OF THE SEGFILE IS USED TO PASS 
GLOBAL DATA BETWEEN PHASES EsGs THE DONTeGENERATE «CONDE FLAGs THE 
ABORT FLAG IN CASE OF A DRASTIC ERROR»* ETCse THIS ASPECT OF THE 
SEGFILE IS not SHOWNs 
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PROCEDURE DIVISION 
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PHASE) 


INITIAL PARSING CPARSE). 


INPUT FILES. 


CARDSCREADER)!2 


SOURCE COPTIONAL DISK)3 
LIBRARYCOPTIONAL DISK)? 
OUTPUT FILES: 


NEWSOURCECOPTIONAL DISK)3 


LIBRARYCOPTIONAL DISK)! 


SQURCE CARD IMAGES OR PATCH CARDS. 


SOURCE CARN IMAGES TO WHICH PATCHES 
MAY BE APPLIEDs 


SOURCE CARD IMAGES MERGED WITH THE 


PRIMARY FILE WHEN A COPY STATEMENT [IS 
ENCOUNTERED. a: 


SOURCE CARD IMAGES TO WHICH PATCH 


CARDS HAVE BEEN APPLIEDs 


NEW LIBRARY. FILECS) CREATED WHEN *L* 


SPECIFIED IN COLUMN 7. 


REPORTCDISK)8 
ALLFILECOISK)? 


DNFILECDISK)! 


GENERAL FUNCTIONS. 


ALL CARD IMAGES PROCESSEO INCLUDING 
DOLLAR CARDSs LIBRARY CARDS AND PATCH 
CAROSe THIS FILE IS USED TO PRINT THE 
OPTIONAL LISTING OR ERROR REPORT 


CONTAINS ALL CONSTANT INFORMATION 
ABOUT EACH TOKEN PROCESSED. THIS 
BECOMES THE CONTROLLING FILE OURTNG 
THE MERGE PHASEs 


CONTAINS PICTURE STRINGS AND ALL 


VARIABLE NAMES ISOLATED. Eas 
SECTION“NAMESs PARAGRAPH*NAMES» AND 
DATA*NAMESs 


Le MERGE SOURCE LANGUAGE INPUTS INCLUDING LIBRARY CARD 


IMAGES e 


26 SCAN AND ISOLATE BASIC SYMBOLS EeGs WORDSs INTEGERS» 
NON®NUMERIC LITERALS» NUMBERS* ETCs 


se 


33 LOOK UP RESERVED WORDS IN A RESERVED WORD LISTe 


as LOOk UP WORDS IN THE OPTIONAL COPY REPLACING LIST OR’ THE 
OPTIONAL SPECIAL NAMES LIST+s 


56 VERTFY THAT ALL FOUR DIVISIONS ARE PRESENT ANO. IN” THE 
PROPER ORDER. IF THIS MUCH IS NOT CORRECT» THE ABORT FLAG 
Is SET TO BYPASS THE REGULAR PROCESSING AND SHORTCUT TO 
THE FIXUP PHASE. 


RESERVED WORN LOOKUP. 


IN ORDER TO MINIMIZE THE MEMORY REQUIRED TO HOLD THEMs THE CORNL 
RESERVED WORDS ARE ORGANIZED INTO Two PRIMARY LISTS? 


1s IDENTIFICATION THRU WORKING*STORAGEs 
2a PROCEDURE DIVISION RESERVED WORDS. 


THE WORDS ARE ARRANGED IN SUBLISTS BY LENGTHs EsGs "L5% BY, "OFM, 
ETC. APPEAR wITH OTHER TwO CHARACTER RESERVES WORDS. A GUESS AS TO 
THE FREQUENCY OF USE IS APPLIED TO EACH SUBLIST WITH THE MORE 
FREQUENT WORDS APPEARING AT THE BEGINNING OF THE SUBLIST® 


WHEN A MATCH IS FOUND BY SEARCHING THE SUBLIST SEQUENTIALLY» THE. 
RESERVED WORD KEY AND CATEGORY IS PROVIDEDs NOISE WORDS» NOTE 
SENTENCES» AND NOTE PARAGRAPHS ARE DELETED WHEN DETECTED. 


SPECIAL FUNCTIONS. 


THERE ARE CERTAIN SPECIAL FUNCTIONS ACCOMPLISHED IN THIS PHASF. 
THESE APPEAR BELOW ACCORDING TO THE DIVISIONs SECTION» OR PARAGRAPH 
HEADER ASSOCIATED WITH THE FUNCTION.s 


MONITOR SENTENCE. 


Sea Ge eaGQeaeannatn =a @e 


1s VERIFY THAT A FILE*®NAME IS DECLARED» 


Ze IDENTIFY AND MARK DATA#*NAMES AND PROCEDURE@NAMES TO RE 
MONITOREDs * 


36 PASS THESE NAMES TO THE MERGE PHASE AS NON®NUMERTC 
LITERALS ON THE ALLFILE. 


Be IF THE wORD “ALLY APPEARS AS THE PROCEDURE*NAME LISTs THE 
| NAME OF EACH SECTION AND PARAGRAPH IS PASSED TO THE MERGE 
PHASE AS A NON®NUMERIC LITERAL ON THE ALLFILEs 


DATE*COMPILED. | 


Le SCAN TO THE END OF THE SENTENCE 


20 BUILD AN IMAGE CONTAINING DATE AND TIME AND OUTPUT IT TO 
THE REPORT FILE. 


OBJECT*COMPUTER, 


Le VERTFY AND SAVE THE MEMORY SIZE VALUECIN CHARACTERS) FOR 
THE FIXUP PHASE. 


2s SAVE SEGMENT*LIMIT VALUE. 


3e SAVE DATA SEGMENT@LIMIT VALUE® 


SPECTAL“NAMESo 


le SAVE THE CURRENCY SIGN VALUEs 
2e SAVE THE DECIMAL=POINT IS COMMA VALUEs 


30 BUILO THE MNEMONIC NAMES LISTe 


DATA DIVISION, 


le ASSIGN AN OCUR NUMBER TO EACH FILE*NAME AND ODATA*NAME 
DECLARED. THIS NUMBER REGINS wITH 1 AND INCREASES BY 1 (0 
Is RESERVED FOR ERROR REPORTING) « THIS OCUR BECOMES THE 
"INTERNAL REPRESENTATION FOR THE OATA*NAME AFTER THE 
DICTIONARY PROCESSING PHASE. FILLER ENTRIES ARE NOT 
ASSIGNED AN OCUR UNLESS THEY ARE O1 FILLER o¢4- ENTRIES OF 

A FILE. i” ee 


2e QUTPUT A DUMMY FO TO CORRESPOND TO THE WORKING*STORAGE 
SECTION HEADER.» THIS DUMMY FD IS REQUIRED FOR THE 
DATA*NAME QUALIFICATION RESOLUTION PHASE. 


FILE SECTION. 


le PARSE THE FILE=NAME OF AN FD OR SD DECLARATIONs SET LEVEL 
z 0 AND THE APPROPRIATE FLAGS TRUEs 


2a 
36 


Qo 


10 


DROP THE DATA RECORD(S) CLAUSE AND ITS OPERANNDSs 
MARK THE OPERANDS OF THE LABEL RECORD(S) CLAUSEs 


PARSE THE ITEM DESCRIPTIONS OF THE FILE RECORD (SEE 
WORKING*STORAGE SECTION). 


WORKING@*STORAGE SECTIONe 


le 
26 
36 
ae 


Se 


60 


76 


PARSE ITEM DESCRIPTIONS. 

ISOLATE AND VERIFY PROPER LEVEL INDICATOR« 
RECOGNIZE AND MARK FILLER ENTRIES. 

MARK THE OPERANDS OF A REDEFINFES OR RENAMES CLAUSEs 


RECOGNIZE A PICTURE DECLARATION AND CONTROL THE SCANNER TO 
ISOLATE A PC STRING 


MARK INDEX NAMESe 


MARK ALL ITEMS THAT ARE NOT "CORRESPONDING" CANDIDATES. 
EsGe ENTRIES WITH FILLER SPECIFIED» LEVEL = 665 77% OR AAs 


- ENTRIES CONTAINING AN OCCURS OR REDEFINES CLAUSE» THESE 


ARE NOT CONSIDERED FOR SELECTION OF CORRESPONDING PAIRSs 


PROCEDURE DIVISION. 


ie 


RECOGNIZE AND MARK SECTION NAMES AND PARAGRAPH NAMES) AND 
ASSIGN THEM A LABEL OCUR NUMBERs THIS NUMBER BEGINS WITH 
1 AND INCREASES BY 1 FOR EACH NEW SECTION OR PARAGRAPH (0 
IS RESERVED FOR ERROR REPORTING) « THIS LABEL OCUR BECOMES 
THE INTERNAL NUMBER FOR THE NAME AFTER THE OICTIONARY 
PROCESSING PHASE. 


ASSIGN A SEGMENT NUMRER TO. EACH SECTION BASED NN 
SEGMENT*=LIMIT AND PRIORITY NUMBER DECLARATIONSs THESE 
SEGMENT NUMBERS ARE SEQUENTIAL STARTING WITH Oc 


RECOGNIZE GO TO PARAGRAPHS AND MARK THEM AS LEGAL OPERANDS 
OF AN ALTER STATEMENTs 


IDENTIFY AND MARK OPERANDS OF A GO TOs ALTER» PERFORMs OR 
A PERFORM «a0 THRU ose STATEMENT 


MARK OPERANDS OF OTHER SPECIAL 1/70 VERBS AS PROCEDURE 
NAMES» 


RECOGNIZE AND MARK OPERANDS OF A CORRESPONDING VERB C€ EaGe 


11 
MOVE CORRESPONDING A TO 8)e 


DYNAMIC MEMORY. 


THE OYNAMIC MEMORY FOR PARSE IS UTILIZED AS FOLLOWS! 


RESERVED WORDS 


COPY.,BASE sew euameneany 
COPY REPLACING 
LINK LIST 


COPYsNEXTsAVALL “eae ea> 
AVAILABLE 


MNEMONICsBASE se "eeeee> . 
 MNEMONIC NAME 
List. “ 


IF COPYsNEXTsAVAIL EVER MEETS MNEMONICe® BASE THEN AN ERROR MESSAGE I5 
ISSUED WITH A REQUEST TO RECOMPILE USING MORE MEMORYs 
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DICTIONARY PROCESSING (DICT). 


INPUT FILESs 


ONFILE: © CONTAINS ALL PICTURE STRINGS» DECLARED VARIABLE NAMFS 


AND REFERENCES TO THE VARIABLES+s 


Q“UTPUT FILES. 


ONFILE? ALL PICTURE STRINGS AND VARIABLES ARE REDUCED TO AN 


OCURs 


“GENERAL FUNCTIONS. 


le 


20 


BUILD . A DICTIONARY OF DECLARED DATA*NAMES — AND 
PROCENURE@NAMES=s 


LOOK UP REFERENCES. TO THE DECLARED VARIABLES AND 
SUBSTITUTF AN OCUR NUMBER AND A SAME NAME OCUR NUMBER FOR 
THE SYMBOL STRINGs THE SAmE NAME OCUR NUMBER POINTS TO ANY 
PRIOR: OCCURRENCE OF THIS NAME IN A LINK LIST FASHIONe IF 
THE SAME NAME OCUR = THE OCUR THEN THE LAST ELEMENT OF THE 
LIST HAS REEN REACHED OR THE NAME IS UNIQUEs 


ASSIGN A PICTURE OCUR NUMBER TO EACH NEW PICTURE STRING 
THAT WAS DECLAREDse A PICTURE STRING IS DISTINGUISHED FROM 
OTHER VARIABLE NAMES BY ADDING A BLANK TO THE END OF THE 
STRING AND INCREASING THE SYMBOL LENGTH BY 1 IN THE 
SCANNING PROCESSCPARSE)s : 


THESE FUNCTIONS ARE DONE ON AN ITERATIVE BASTS«e WHEN THE 
FIRST ATTEMPT ITS MADE TO ADD A NAME TO THE DICTIONARY AND 
IT WILL NOT FIT» A DICTIGNARYoFULLsFLAG IS SET TO 1 AND 
THAT TOKEN IS MARKED AS UNPROCESSED ON THE OUTPUT FILE. 
WHEN A NAME IS LOOKED uP IN THE DICTIONARY AND IS FOUND» 
IT IS MARKED AS PROCESSED ON THE OUTPUT FILE AND FURTHER 
PROCESSING OF THAT TOKEN IS INHIBITED FOR THE OURATION OF 
THE ITERATIONSe IF THE NAME IS NOT FOUND» AND THE 
DICTIONARYsFULL«sFLAG ITS 4 THE TOKEN IS MARKED AS 
UNPROCESSED ON THE QUTPUT FILE» OTHERWISE AN QCUR NUMRER 
OF O IS RETURNED TO INDICATE "UNIDENTIFIED NAME" AND THE 


TOKEN IS MARKED AS PROCESSED+ THIS CONTINUES UNTIL ALL 


VARTABLE NAMES HAVE BEEN AODED TO THE DICTIONARY. 
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DICTIONARY SEARCH. 


ASSOCIATED WITH EACH VARIABLE NAME IS A STACKHEAD NUMBERe THIS 
NUMBER IS CREATED IN PARSE 8Y APPLYING A TRANSFORMATION TO THE 
CHARACTER STRING COMPRISING THE NAME» IT IS USED AS AN INDEX INTO 
A STACKHEAD ARRAY TN FIND THE BEGINNING OF THE LINK LIST IN. WHICH 
THIS NAME SHALL APPEARs A LINK OF O INDICATES END OF THE LIST OR AN 
EMPTY LIST« 


TWO STACKHEAN ARRAYS ARE MAINTAINED IN THE LOOKUP PROCESS» ONE FOR 
DATA*NAMES AND THE OTHER FOR PICTURE STRINGS AND LABELS 
CSECTION*NAMES AND PARAGRAPH*NAMES)+« THE PICTURE STRINGS ARE 
DISTINGUISHED FROM THE LABELS BECAUSE THEY HAVE A BLANK CHARACTER 
APPENDED TO THE ENDe 


DYNAMIC MEMORY. 


THE STACKHEAD ARRAYS AND LINK LISTS ARE MAINTAINED IN THE AVAILAARLE 
DYNAMIC MEMORY. ONE OR MORE ITERATIONS THROUGH THE FILE MAY. RE 
ELIMINATED BY INCREASING THE SIZE OF DYNAMIC FOR THIS PHASEs 


EACH ITERATINN CONSISTS OF TWO PASSESs 


“PASS Is 


le COPY ALL UNPROCESSED TOKENS OF THE ENVIRONMENT DIVISION TO 
THE OUTPUT FILEs 


2s ADD ALL DECLARED DATA@NAMES AND LABELS TO THE DICTIONARY. 


3% LOOK uP THE OPERANDS OF A REDEFINES OR RENAMES” CLAUSEs 
THIS SOLVES THE PROBLEM OF IMPLIED QUALIFICATION FOR 
DUPLICATE DECLARATIONS IN THAT THE LAST MENTIONED 
OCCURENCE NUMBER WILL RE FOUND RATHER THAN. THE FINAL 
OCCURENCE OF THAT NAMEs , 


4s LOOK UP ALL DATA*NAMES OF THE PROCEDURE DIVISIONs THE OcuR 
NUMBER FOUND WILL POINT TO THE FINAL OCCURENCE OF THE SAME 
NAME LINK LISTe 

Ss COPY UNPROCESSED LABELS TO eutek FILE. 

PASS It. 


ls LOOK UP UNPROCESSED NAMES OF THE ENVIRONMENT DIVISION: 


2e COPY UNPROCESSED DATA*NAMES TO THE OUTPUT FILE» 


14 


LOOK UP LABEL REFERENCES OF THE PROCEDURE DIVISIONe IF THE 
LABEL IS A OUPLICATEs THE OCUR NUMBER OF THE FINAL 
DECLARATION WILL BE FOUND. 


IF THE DICTIONARYoFULL*+FLAG = 1 THEN ITERATE TO PASS Is 
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DATA®NAME QUALIFICATION RESOLUTION CDNQUAL). 


INPUT FILESe 


ONFILEt CONTAINS A SAMENAME OCUR FOR DECLARED DATA@NAMES AND 


AN UNRESOLVED OCUR FOR DATA*NAME REFERENCES AND 
QUALIFIERS. | 


OUTPUT FILES. 


DNFILE$ CONTAINS RESOLVED OCUR FOR DATA*NAME REFERENCES. 


GENERAL FUNCTIONS.» 


le 


ge 


56 


6a 


STARTING AT THE NATA DIVISION OF THE DNFILE CREAD ONLY)» 
BUILD AN EXPLICIT DATA*NAME TABLE CONTAINING THE DATA@NAME 
FLAGS CONeFLAGS)» THE SAME NAME OCUR (CSNAME)» AND THE 
SCOPE OCUR FOR EACH EXPLICIT DATA*NAMEs THE GROUP FLAG IS 
SET AT THIS TIMEe. 


RE"READ THE ENTIRE DNFILE AND WRITE THE RESOLVED OCUR FOR 
REFERFNCED DATA@NAMESs THE QUALIFIER TOKENS ARE OROPPED aT 
THIS TIMEs | 


SET THE LABEL RECORD OPERAND FLAG FOR ALL ELEMENTS OF A 
LABEL RECORD. 


SELFCT CORRESPONDING PAIRS» THE PAIRS ARE DELIMITED BY A 
CORRESPONDING SENTINEL SO THAT THE FILE CAN BE PROCESSED 
PROPERLY IN THE MERGE PHASE. 


UPDATE THE DATA*NAME REFERENCE COUNT BASED ON THE RESOLVED 
OCUR. 


SET THE MONITORED FLAG OF THE DATA NAMES LISTED’ IN THE 
MONITOR STATEMENTS. 


READ - THE ONFILE AND WRITE A NEW DNFILE WITH THE UPDATED 


DNe FLAGS POSTED TO THE EXPLICIT DATA*"NAME TOKENSs 


WHEN THE PROCEDURE DIVISION IS FOUND ON THE INPUT FILEs» 
BEGIN THE LABEL QUALIFICATION RESOLUTION PHASECLQUAL)=s 
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SCOPE OF AN ENTRYs 


THE SCOPE OF EACH EXPLICIT DATA*NAME IS CALCULATED FROM ITS LEVEL 
NUMBER WHEN RUILOING THE DATA“NAME TABLE» THE SCOPE OF A GROUP ITEM 

IS THE LAST FLEMENTARY ITEM OF THE GROUPse THE SCOPE OF AN 
ELEMENTARY ITEM OR AN INDEX NAME OR A RENAMES ENTRY» OR A CONDITION 
NAME IS ITSELF. 


EXAMPLE S$ 


OCUR SNAME SCOPE 


C01) 01 Li Ol Ao 


(02) ~—602 08 02 Be 
(03) 03 03 88 C VA 1» 5S THRU 106 
(04) 04. 04 03 0 PC Xs 

(05) 05 08 03 €. 

(06) 06 06 O4 F PC Xe 

(07) 07 07 O04 GPC Xe. 

(08) 08 08 | BB H VA 205 30.6 
(09) 09 09 O02 I PC Xe | 
(10) 10 10 66 J RENAMES OD THRU Fo 
(11) 11 11 66 K RENAMES Bs 

(12) 12° »=6 «44 O1 Xa 

(13) 02 La. 02 8 PC Xe 

(14) 04 14600 02. 0 PC Xe 


THE SAME NAME AND SCOPE ATTRIBUTES ARE USED IN RESOLVING REFERENCES 
TO MUPLICATE NAMES AND In THE SELECTION OF CORRESPONDING PAIRS FOR 
A CORRESPONOING VERB. 


DYNAMIC MEMORYs 


THE EXPLICIT DATA@NAME TABLE IS BUILT IN DYNAMIC MEMORYs EACH TABLE 
ENTRY OCCUPIES 34 BITSe IF THE ENTIRE TABLE CAN NOT BE CONTAINED» 
AN ERROR MESSAGE IS ISSUED WITH A REQUEST TO RECOMPILE USING MORE 
MEMORYas 
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LABEL QUALIFICATION RESOLUTION CLQUAL)s 


INPUT FILES« 


DONFILES CONTAINS UNRESOLVED LABEL REFERENCESs 


OUTPUT FILES. 


ONFILE? CONTAINS A UNIQUE LABEL OCUR FOR REFERENCED SECTINNS 


OR PARAGRAPHSs 


GENERAL FUNCTIONS, 


Ls 


2s 


5s 


66 


STARTING WITH THE PROCEDURE DIVISION OF THE ONFILE (CTHE 
FILE WAS LEFT OPEN IN DNQUAL)» BUILD AN EXPLICIT LAREL 
TABLE CONTAINING THE LABEL FLAGS» SAME NAME OCURs SEGMENT 
NUMBER» AND SECTION OCUR ASSOCIATED WITH THE PARAGRAPH TF 
ANYs. THE FILE IS WRITTEN OURING THIS PROCESSs 


REAN THE FILE AND WRITE THE RESOLVED OCUR FOR REFERENCED 
LABELS» THE LABEL OUALIFIERS ARE OROPPED AT THIS TIMEs 


MARK THE MONITORED LABELS AND THE TERMINAL PARAGRAPH OF A 
PERFURM RANGEs 3 


UPUN ENCOUNTERING AN ALTER OPERANOs VERIFY THAT IT IS A GO 
TO PARAGRAPH AND MARK IT AS ALTEREDs | 


WHEN THE END OF FILE IS REACHED». ASSIGN A&A SEQUENTIAL 
TERMINAL PARAGRAPH NUMRER- TO EACH TERMINAL PARAGRAPH OF A 
PERFORM RANGE « 


READ AND WRITE THE DNFILE WITH THE UPNATED  LAREL 
INFORMATION POSTED TO EACH EXPLICIT REFERENCE OR LABEL 
REFERENCE TO ITs 
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DYNAMIC MEMORY. 


THE EXPLICIT LABEL TABLE IS BUILT IN DYNAMIC MEMORYs EACH ENTRY 
OCCUPIES 37 BITS: IF THE ENTIRE TABLE CAN NOT BE CONTAINED» aN 
ERROR MESSAGE IS ISSUED wITH A REQUEST TO RECOMPILE USING MORE 
MEMORY « | es | 


MERGE. 
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INPUT FILES. 


ALLFILE® CONTAINS CONSTANT INFORMATION ABOUT EACH TOKEN 


PROCESSED IN PARSE. 


ONFILES CONTAINS UNIQUE OCUR NUMBER FUR EACH DATA®NAME ANDO 


LABEL REFERENCED. 


OUTPUT FILES. 


ADNFILEs CONTAINS MERGED TOKENS OF THE ALLFILE AND THE ONFILEs 
PCFILE? CONTAINS PCINFO ENTRY FOR EACH UNIQUE PICTURE STRING 


OF THE DATA DIVISIONe » 


SEGFILE: EDIT MASKS GENERATED BY THE PICTURE ANALYZERs AND 


SYMBOLS TO BE PRINTED WHEN MONITORING ARE ADDED TO 
THIS FILE 


GENERAL FUNCTIONS. 


THE PRIMARY FUNCTION OF THIS PHASE IS TO MERGE THE ALLFILE ANO THE 


ONFILE GIVING THE ADNFILEs IN ADDITION THE FULLOWING FUNCTIONS ARE 
PERFORMED. ) 
1. THE DATA*NAME SYMBOLS TO BE PRINTED WHEN MONITORING ARE 
WRITTEN TO THE SEGFILE» AND THE MONITOREO OCUR VS THE 
MEMORY ADDRESS ARE PUT INTO A TABLEs A TABLE OF OCCUR 
NUMBERS VS THE LABEL SYMBOLS TO BE PRINTED IS PLACED IN 
ANUTHER TABLEs | no | 
26 ANALYZE UNIQUE PICTURE STRINGS CTHE PICTURE OCUR OF THE 
CURRENT PC IS GREATER THAN THE LAST ONE ANALYZED): AND 
CREATE A PCINFO ENTRY ON THE PCFILEs THIS ENTRY CONTAINS 
PC ATTRIBUTES LIKE SIZE» SCALE» CLASS» ETCe IF AN EDIT 
MASK IS REQUIRED IT IS WRITTEN TO THE SEGFILE AND ITS 
MEMORY ADORESS IS POSTED TO THE PCINFO ENTRY. 
36 A TABLE OF CONDITION@®NAME OCUR NUMBERS VS THE ASSOCIATED 


VALUE LIST IS CREATED FOR EACH LEVEL 88 ENTRY OF THE DATA 
DIVISION. | | 
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4s WHEN A MONITORED DATA@NAME IS SEENs ITS OCUR IS LOOKED UP 
IN THE MONITOR TABLE AND THE MONITOR ADORESS IS RUSTeS TO 
THAT ENTRY: 


56 WHEN A MONITOR LABEL LIST ELEMENT IS ENCOUNTEREDs THE 
SYMBOL TO BE PRINTED IS PROVIDED AS A NON#"NUMERIC LITERAL 
FOLLOWING THAT TOKENe 


66 WHEN A CONDITION*NAME IS REFERENCED THE PARENTHESIZED 
TEXT © THAT IS EQUIVALENT TO THE OESIRED TEST IS’ PROVINED 
FROM THE CONDITION*NAME TABLE. NOTE! THE PARENTHESES ARE 
NECESSARY IN THE CASE WHERE THE CONDITION“NAME IS NEGATED. 


DYNAMIC MEMORY. 


THE MONITOR SYMBOL TABLES AND THE CONDITION*NAME TABLE ARE 
MAINTAINED In DYNAMIC MEMORY. IF THEY CAN NOT BE ENTIRELY 
CONTAINED» AN ERROR MESSAGE IS ISSUED WITH A REQUEST TO RECOMPILE 
USING MORE MEMORYs 


21 


DATA DIVISION SYNTAX CHECK (CDATSYN)s 


INPUT FILESe 


PCFILE! CONTAINS A PCINFO ENTRY FOR EACH UNIQUE PC. STRING 


THAT WAS DECLAREDs 7 


ADNFILE PROCESSED AS A READ GNLY FILE UP TO‘ THE PROCEDURE 


DIVISION. 


OUTPUT FILES. 


DNINFO? CONTAINS A ONINFO ENTRY FOR EACH EXPLICIT DATA*NAME 


EXCLUDING FILLER ENTRIESs THIS ENTRY CONTAINS 
ATTRIBUTES SUCH AS USAGEs ADDRESS» LENGTHs NUMBER NF 
SUBSCRIPTS REQUIRED» BLANK WHEN ZEROs ETC 


SEGFILE! CONTAINS DATA DIVISION TOKENS» EsGe CARD TOKEN WITH 


ASSOCIATED AODDRESS INFORMATION TO BE PRINTED*s VALUES 
TO WHICH THE WORKING*STORAGE VARIABLES SHOULD BE 
INITIALIZEDs ERROR OR WARNING MESSAGES» ETCe 


GENERAL FUNCTIONS.» 


1s 
Zé 


36 


Ga 


‘Se 


PERFORM A DETAILED SYNTAX CHECK OF THE SOURCE PROGRAM UP 
TO THE PROCEDURE DIVISIONs 


SAVE THE FILE ATTRIBUTES SPECIFIED IN THE FILE@CONTROL 
PARAGRAPHs THESE ATTRIBUTES ARE HELD IN THE FDeINFO TABLE. 


SAVE THE "SAME RECORD AREA «ea ATTRIBUTE OF THE 
T"O*°CONTROL PARAGRAPH IN THE FDoINFO TABLEs THE MULTI@FTILE 
TAPE ID AND THE MULTI“FILE PACK ID ATTRIBUTES ARE ALSO 
SAVED IN THE FD«INFO TABLEs 


COMBINE THE FO OR SO ATTRIBUTES DECLARED IN THE FILE 
SECTION WITH THOSE IN THE FOsoINFO TABLE. THE SET nF 
COMBINED INFORMATION IS USED TO CREATE THE FILE PARAMETER 
BLOCK (FPB) FOR EACH FILE DECLARED. 


PERFORM A DETAILED SYNTAX CHECK OF EACH DECLARED DATA“NAME 
AND ALLOCATE MEMORY FOR EACH ENTRY« A COP INDEX (COPX) TS 
ASSIGNED AT THIS TIMEs THESE ATTRIBUTES* EsGe USAGEs BLANK 
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WHEN ZERO» NUMBER OF SUBSCRIPTS» ADDRESS» COPX»s ETCes ARE 
SAVED IN THE DNINFO FILE AND CAN BE RETRIEVED BY USING THE 
DATA*NAME OCUR NUMBER AS THE KEY 


6+ PARSE THE "VALUE IS eo." CLAUSE OF THE WORKING@STORAGE 
ENTRIES+ A&A TOKEN FOR INITIALIZING MEMORY AT RUN TIME IS 
ISSUED TO THE SEGFILE. 


7 CREATE THE PSEUDO DATA SEGMENT DICTIONARY FOR DATA 
SEGMENTATION. 


Ba WHEN THE PROCEDURE DIVISION IS FOUNDs GATHER DATA 
SEGMENTS» FINALIZE SEGMENT*NUMBER AND OISPLACEMENTs BUILD 
THE COP TASLE* AND BEGIN THE EXPLODE PHASEs 


DATA SEGMENTATION. 


WHEN ALLOCATING STORAGE FOR DATA» A PSEUDO DATA DICTIONARY ENTRY IS 
BUILT FOR EACH DATA SEGMENT CANDIDATEs EsGe EACH FILE RECORD WORK 
AREA AND EACH WORKING*STORAGE RECORD THAT IS NOT REDEFINEDs THE 
NON@®CONTIGUOUS ITEMS (LEVEL = 77) ARE ASSIGNED TO DATA SEGMENT Ov 
SPECIAL CONSINDERATION IS GIVEN TO THESE ITEMS IN THAT SEGMENT O 1S 
ALWAYS PRESENT AND A PRESENCE CHECK BY THE COBOL INTERPRETER IS noT 
NECESSARY. 


WHEN THE PROCEDURE DIVISION IS FOUND» AN ATTEMPT IS MADE TO GATHER 
DATA SEGMENTS ACCORDING TO THE DATA SEGMENT@LIMIT VALUE SPECIFIED 
IN THE OBJECT™CUMPUTER PARAGRAPHs 


IF DATA SEGMENT*LIMIT = 0 THEN ALL DATA IS ASSIGNED TO SEGMENT O AND 
NO FURTHER ACTION 1S NECESSARY 


IF DATA SEGMENT= LIMIT IS NOT = 0 THEN EACH FILE RECORD WORK AREA IS 
“ASSIGNED TO A NEW SEGMENT AND. THE WORKING@STORAGE RECORDS ARE 
GATHERED AS FOLLOWS! © 


le IF A CANDIDATE IS GREATER THAN DATA SEGMENT@*LIMIT THEN 
ASSIGN IT TO A NEW SEGMENTs 


2e IF A CANDIDATE WILL FIT WITH THE CANDIDATES GATHERED s0 
FAR CEeGse THE COMBINED SIZE OOES NOT EXCEED DATA 
SEGMENT@LIMIT) THEN ASSIGN IT TO THE CURRENT DATA SEGMENT.» 


3e IF  & CANDIDATE WILL NOT FIT IN THE CURRENT SEGMENT THEN 
BEGIN GATHERING TO A NEW SEGMENT. 


THIS METHOD TENDS TO GATHER SMALL CANDIDATES TO A DATA SEGMENT SIZE 
THAT IS CLOSE TO THE DESIRED DATA SEGMENT@LIMIT. 
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DYNAMIC MEMORY. 


DYNAMIC MEMORY CONTAINS SEVERAL TABLES WHICH ARE MANAGED AS FOLLOWS: 


le THE PC.TASLE IS LOADED FROM THE PCFILE INTO THE FIRST PART 
OF DYNeWA AT THE BEGINNING OF DATSYNs 


Qe FOLeLISTsHEAD CONTAINS A LINK TO THE FIRST FILE INFO ENTRY 
(FOIeINFO) LINK LISTs THERE IS ONE FDeINFO ENTRY PER 
SELECTCED) FILE, | 


3e THE DATA OICTIONARY TABLE IS BUILT AT THE END OF ODYNewWA 
AND GOES TOWARD THE FO.INFO TABLEs THERE IS ONE ODOTfCT 
ENTRY FOR EACH DATA SEGMENT CANDIDATEs DOICTCO) IS 
RESERVED FOR THE LABEL RECORD wORK AREA OF THE USE 
PROCEDURES. 


Ae IF DYN.PTR EVER MEETS DDICTsLIMIT THEN AN ERROR MESSAGE IS 
ISSUED WITH A REQUEST TO RECOMPILE USING MORE MEMORY. 


5s AT THE BEGINNING OF EXPLODE THE FDeINFO LINK LIST AND THE 
DATA OICTIONARY TABLE ARE REPLACED BY AS MANY ONINFO FILE 
ENTRIES AS WILL FITs THE OVERFLOW ENTRIES ARE RETRIEVEO ON 
A RANDOM BASIS FROM THE ONINFO FILE 


PCsTABLE LOADED 
FROM PCFILE ~ 
(93 BITS/ENTRY) 


FOLTsLLISTsHEAN s**2> : <uesem ONISTABLE sBASE 
FDeInNFO LINK LIST 1! 
(293 BITS/ENTRY) * i 
(25 BITS/FILE=LIMIT) { 
1 DURING EXPLODE: 
{ FOR ONINFO ENTRIES 
1 €96 BITS/ENTRY) . 
AVAILABLE © | i AS MANY AS WILL FIT 
| 
i 
{ 
{ 
i 


ONIsPTR coecesennny 


DDICTsLIMIT ss=e24> eta ct 
DOICT TABLE 

C47 BITS/ENTRY) 
ODICTsBASE saee2en5 < 


eoom ONI,TABLEsLIMIT 


EXPLODE. 
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INPUT FILESs 


AONFILE? READY TO READ THE PROCEDURE DIVISION. 


OUTPUT FILES« 


ADNFILES TOKEN REFERENCES ARE REPLACED BY A_ COPY OF THEIR 


ATTRIBUTES. 


GENERAL FUNCTIONS.» 


le 
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READ THE ONINFO FILE AND LOAD OYNAMIC MEMORY WITH AS MANY 
ENTRIES AS IT WILL HOLDs 


EXPAND TOKENS TQ INCLUDE ALL THE KNOWN ATTRIBUTES FOR THAT 
TOKENs EsGse A DATA*NAME OCUR IS USED TO INDEX THE ONINFO 
TABLE» TO WHICH THE PC ATTRIBUTES ARE ANDED FROM THE 
PCeTABLEs SUBSCRIPT FACTORS AND TABLE BOUND INFORMATION IS 
ISSUED AT THIS TIME. 


EXPAND SPECIAL REGISTER REFERENCES TO LOOK LIKE DATA@*NAME 
REFERENCES CTALLYs TODAYS#DATEs SWls see » SW8e ETCedeo 


OUTPUT TOKEN INFORMATION ABOUT DECLARED FILE*LIMITS. 
PARSE THE USE SENTENCE OF A USE PROCEDUREs 


PARSE SORT STATEMENTS WITH PARTICULAR ATTENTION TO THE 
WMUSINGe ee” AND "GIVINGe es” CLAUSES: 
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PROCEDURE DIVISION SYNTAX CHECKING CPROSYN)<« 


INPUT FILES¢ 


AONFILE!? EXPLODED TOKENS INCLUDING A COPY OF THEIR ATTRIBUTES. 


OUTPUT FILES, . 


AONFILE® CONTAINS TOKENS THAT HAVE BEEN SYNTAX CHECKED, 
REARRANGED*s AND SIMPLIFIED FOR CODE GENERATION: 


GENERAL FUNCTIONSs 


Ls PERFURM A DETAILED SYNTAX CHECK OF EACH PROCENURE DIVISION 
CONSTRUCTs ANY ERROR OR wARNING MESSAGES ISSUED ARE MERGED 
WITH PRIOR MESSAGES, 


26 GET OPERANDS AND THEIR SUBSCRIPTS OR INDEXES AND 
AUTOMATICALLY STACK THEM FOR USE BY EACH CALLER» OPTIMIZE 
LITERAL SUBSCRIPTS AND INDEXES WHEN THE OPERAND IS PuT TO 
THE OUTPUT FILE CSEE “SUBSCRIPT AND INDEX OPTIMIZATION). 
THE LOOK@AHEAD FEATURE OF THE GET PROCEDURE CAN BE INVOKED 
BY SETTING A FLAGs IN THIS MODEs TOKENS ARE PRESENTED TO 
THE CALLER ONE AT A TIME UNTIL THE FLAG IS RESET AND 
NORMAL OPERATION RESUMES WHERE IT LEFT OFFse THIS MODE IS 
ESPECTALLY USEFUL FOR OPTIMIZINGs EsGse THE ROUNDEDs SI7E 
ERROR» AND MULTIPLE RECEIVING FIELD REQUESTS ARE ENCODED 
AS VARIATIONS WITH THE ARITHMETIC VERSS» | 


36 CHANGE STATEMENTS TO A SIMPLER FORM» EeGe CORRESPONDING 
PAIRS OF A MOVE CORRESPONDING STATEMENT ARE PUT OUT AS 
SEPARATE MOVE STATEMENTS. 


Ge TRANSFORM ARITHMETIC EXPRESSIONS AND BOOLEAN EXPRESSIONS 
- TO THEIR PARENTHESIS FREE POLISH EQUIVALENT BY APPLYING 
THE OPERATOR PRECIDENCE RULES» AN ATTEMPT IS MADE TO 
PROMUCE EQUIVALENT STRINGS FOR ARITHMETIC EXPRESSIONS AND 
THEIR ARITHMETIC STATEMENT COUNTERPARTSs 


5s SUPPLY THE IMPLIED SUBJECT AND RELATIONAL OPERATOR TO 
ABREVIATED CONDITIONSs 3 : 
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DYNAMIC MEMORYs 


THE OPERAND STACK IS MAINTAINED IN DYNAMIC MEMORYs IF IT CAN NOT RE 
ENTIRELY CONTAINEDs AN ERROR MESSAGE IS ISSUED WITH A REQUEST TO 
RECOMPILE WITH MORE MEMORYs : 
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CODE GENERATOR (CODEGEN)=. 


INPUT FILESs 


AONFILE? CONTAINS THE PROCEDURE OIVISION TOKENS THAT HAVE 


BEEN SIMPLIFIED FOR CODE GENERATIONS 


OUTPUT FILES: 


SEGFILE: — CODEGEN TOKENS ARE APPENDED TO THE TOKENS 


PRODUCED BY THE PRIOR PHASESs 


LABELTABLES CONTAINS EXPLICIT LABEL ATTRIBUTES ANDO IMPLICIT 


LABEL ATTRIBUTES (CE«Gs BRANCH POINTS OF A 
CONDITION) USED FOR GENERATING THE CORRECT 
BRANCH ADDRESSESs 


GENERAL FUNCTIONS. 


ls 


2s 


CHECK THE DONTsGENERATE.CODE FLAG WHICH IS SET BY ANY 
PRIOR PHASE THAT DETECTED A SYNTAX ERRORe IF IT HAS BEEN 
SET» COPY THE TOKENS NEEDED TO PREPARE THE ERROR REPORT 
ONTO THE SEGFILE AND BEGIN THE FIXUP PHASEs IF NO ERRORS 
HAVE REEN DETECTEDs GENERATE THE REQUIRED CODEs 


GENFRATE CODE FOR THE EXPONENTIATE INTRINSICs THIS CODE TS 
GENERATED ONLY WHEN NEEDED (FOR CERTAIN SIMPLE CASES THE 
CODE 1S EMITTED IN*LINE)s 

EMIT CODE FOR FILE*LIMIT CHECKINGs 


EMIT CODE TO ANALYZE THE REASON FOR A USE PROCEDURE BEING 


INVOKEDes 
GENERATE CONE FOR THE MONITOR INTRINSICe 


UPDATE THE LABELTABLE FILE FOR EACH SECTION» PARAGRAPH*s 


AND IMPLICIT BRANCH THAT IS EMITTEDe 


28 


DYNAMIC MEMORY: 


A GETsTOKEN PROCEDURE AUTOMATICALLY STACKS THE OPERANDS AND THEIR 
SUBSCRIPTS FUR USE RY EACH CALLER» THE OPERAND STACK IS MAINTAINED 
IN; DYNAMIC MEMORY. IF IT CAN NOT BE ENTIRELY MAINTAINEDs AN ERROR 
MESSAGE IS ISSUED WITH A REQUEST TO RECOMPILE WITH MORE MEMORYs~ 
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FIXUP 


INPUT FILES. 


REPORT? CONTAINS CARD IMAGES NEEDED FOR LISTINGs NOT 


OPENED IF NO LIST SPECIFIED AND THERE ARE NO 
ERRORS. 
SEGFILE3 CONTAINS VARIOUS INFORMATION FROM PRECEDING 


PASSES WHICH IS USED TO BUILD THE CODEFILE AND 
SUPPLY ADDITION OATA FOR THE LISTINGs 


LABELTABLES USED TO FINALIZE BRANCH ADDRESSESs« NOT PRESENT 
IF THERE ARE SYNTAX ERRORSs | 


OUTPUT FILES. 


COOEFILE: CONTAINS OBUECT PROGRAM ACCORDING TO MCP 
SPECIFICATIONS. NOT PRESENT IF THERE ARE SYNTAX 
ERRORS. _ 


LINE? USEQO FOR LISTING AND COMPILER DEBUGGING OUTPUT. 


GENERAL FUNCTIONS. 


FIXUP HAS 2 PRIMARY JOBS! PRODUCE A CODFFILE AND A LISTINGe NO 
CODEFILE IS PRODUCED IF THERE ARE SYNTAX ERRORSs» FIXUP IS SENSITIVE 
TO $ CARDS. A NEFAULT & CARD IS THE FIRST TOKEN FIXUP SEES CAS PART 
OF THE DATSYN TOKENS IN THE SEGFILE) UNLESS THE USER HAS A $ CARD 
AT THE FRONT OF HIS DECKs THE DEFAULT 3 CARD GIVES "LIST™, 


IF THE LIST OPTION IS CURRENTLY OFF AND THERE IS aN ERROR OR 
WARNING» THE APPROPRIATE SOURCE CARD IS PRINTED, 


EVERYTHING FIXUP DOES IS VERY SPECIALIZED AND DETAILED. IT KNOWS HOW 
THE MCP EXPECTS A CODEFILE TO BE FORMATTED» HOw THE CORNL 
INTERPRETER WANTS MEMORY LAID OUT FOR A COBOL PROGRAM» AND OTHER 
THINGS TOO STRANGE AND WONDEROUS TO REVEAL TO MORTAL MANe 


HOUSEKEEPINGs 
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THE COBOL INTERPRETER PERMITS 6 DIFFERENT CONTAINER SIZES TO BE 
VARIABLE IN LENGTHs COOEGEN DETERMINES 2 OF THESE! SEGB (SPECIFIES 
SIZE FOR THE DATA SEGMENT NUMBER PORTION OF DATA ADDRESSES) AND 
COPXB (SIZE FOR COPX)s. FIXUP DETERMINES 4 OF THESE! 

le BDISPR (SIZE FOR BRANCH ADORESSES)s 

26 DISPB CSI7E FOR DATA ADDRESS DISPLACEMENT). 

3e  LEN® (SIZE FOR DATA LENGTH)s 

4s COPB (SIZE FOR COP ENTRYsssCOPRISEGB+DISPB+LENB+4) » 


FIXUP MUST ALSO BUILD THE ALTER TABLEs THE DIGIT SIZE OF AN ENTRY # 
CB*BDISPB+3)/4, 


FILL OYNAMIC LABEL TABLE AREAs 


AT THE BEGINNING OF FIXUP THE DYNAMIC AREA AVAILABLE CIF ANY) IS 
SEQUENTIALLY LOANED WITH AS MANY LABELTABLE ENTRIES AS WILL FIT» 
EACH ENTRY BEING RESOLVED TO ITS BADDR FORMAT (33 BITS) ON THE FLYe 
OVERFLOW ENTRIES ARE RETRIEVED RANDOMLY IN THETR ORIGINAL FORM FROM 
THE LABELTABLE FILE AND RESOLVED BY EXCEPTIONe 


BUILD DATA DICTIONARY, 


FIXUP USES THE DNDICTTABLE (BUILT BY DATSYN) IN THE SEGFILE TO BUILD 
THE CODEFILE DaTA DICTIONARYs DATA SEGMENT O SIZE REFLECTS ONLY THE 
USERS DATAs SINCE THE MCP CMALE CHAUVINIST PIG) EXPECTS DATA 
SEGMENT 0 TO RE A PICTURE OF WHAT WILL BE IN MEMORYs FIXUP MUST 
UPDATE DSEGO TO INCLUDE? | 

le EDIT TABLE (8 CHARACTERS). 

2e COP TABLE. 


3e SPECIAL REGISTERS (SwWleeSw8s TALLY» DATE» TIMEs 
TODAYS=DATEs TODAYS™TIMEs TODAYS™NAME )5 


Se CONSTANT POOL COATANAME MONITOR SYMBOLSs EDIT MASKS» 
TRANSLATION TABLES» FILE LIMITS). 


Se TRASH AREA CINTERMEDIATE RESULTS)6 
6% ALTER TABLE CIF ANY): 
7s STACKs. 


DATA SEGMENT PORTIONS OF THE COOEFILE ARE SET TO ALL O BITSs THIS Is 
OONE BECAUSE UPON THE FIRST ACCESS OF A DATA SEGMENT» THE MCP READS 


31 
If OFF DISK IF IT HAS BEEN ALLOCATED SPACE IN THE CODEFILE®e 


BUILD TRANSLATION TABLES. 


EITHER ASCII@TO“ESCDIC AND/OR ESCDIC*TO=<ASCII TABLE IS CREATED ONLY 
IF APPROPRIATE TRANSLATION INSTRUCTION IS GENERATEDs THE TABLECS) 
IS LOCATED AS THE LAST PART OF THE CONSTANT POOLs 


PROCESS MERGE TOKENS FROM SEGFILE. 


THE ONLY VALID TOKEN IS TMEMVALUEs THIS IS: FOR INITIALIZING THE 
CONSTANT POOL PORTION OF THE CODEFILE TO MONITOR DATA*®NAME SYMBOLS 
AND EDIT MASKS. 


BUILD CODE OICTIONARY. 


Sean uGeavanseta* @eaeanwauvn ws 


THE PSEUDO CODE DICTIONARY (PCD) PRODUCED BY CODEGEN CONTAINS A 
SUMMARY OF STATIC COQDE AND NUMBER QF VARIABLE LENGTH CONTAINERS FOR 
EACH LOGICAL PROGRAM SEGMENTs BY NOW FIXUP HAS CALCULATED THE 
CONTAINER ST7ES AND MULTIPLIES THESE BY THE PCD NUMBERS AND ANNS 
THE PCD STATIC CORE TO BUILD THE FINAL CODE OICTIONARY IN THE 
CODEFILEs 


IN ADDITION "MARKER" RECORDS ARE WRITTEN ON THE SEGFILEs THESE TELL 
THE BEGINNING CODEFILE DISK SEGMENT ADDRESS FOR EACH LOGICAL 
PROGRAM SEGMENT. : 


PROCESS DATSYN TOKENS. 


THE REPORT FILE IS USED TO PRODUCE A LISTING CIF APPLICABLE) AND 
TCARDADR TOKENS ARE FETCHED TO APPLY DATA ADDRESSES TO THE LISTINGs 
TMEMVALUE TOKENS ARE PROCESSED TO IMPLEMENT THE "VALUE IS" CLAUSE. 


PROCESS CODEGEN TOKENS. 


IN ORDER TO ALIGN PRINTED CODE AND CODE ADDRESSES ON THE LISTING» 
CODEGEN TOKENS ARE PROCESSED SERIALLYs« THE USER MAY HAVE CONE 
SEGMENTATION MIXED SO THAT PIECES OF A LOGICAL PROGRAM SEGMENT ARE 
SCATTERED THROUGHOUT THE PROGRAMse. 


FIXUP EMITS CODE FOR THE CURRENT PROGRAM SEGMENTs IF A NEW SEGMENT 
OCCURS» FIXUP USES THE *MARKER™ RECORDS TO REMEMBER WHERE THE CONE 
FOR A SEGMENT LEFT. OFF ON THE CODEFILEs 
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THE LABELTARLE FILE IS ACCESSED WHENEVER A TBADNR TOKEN IS 
ENCOUNTEREDs THE ROUTINE LABEL«FIXUP TAKES A LABELTABLE OCUR FROM 
THE TOKEN ANO USES IT AS AN INOEX INTO THE LASELTABLE TO FINALIZE 
A BRANCH ADDRESSe 

FILE LIMIT VALUES ARE SET UP BY CODEGEN AS TMEMVALUE TOKENS AND are 
INITIALIZED ON THE CODEFILE AT THIS POINT« 


CLEANUP s 


1s PRINT THE CODE DICTIONARY. 

26 = BUILD THE FILE PARAMETER BLOCKS« 

30 PRINT THE DATA DICTIONARY. 

4s BUILD AND PRINT THE PATH DICTIONARY CDATA MANAGEMENT )s 
Ss BUILD AND PRINT THE COP TASLEs 

6s BUILD AND PRINT THE RUN STRUCTURES 

7s FINALIZE THE PROGRAM PARAMETER BLOCKs 

Be BUILD AND PRINT THE ALTER TABLE. 

9s PRINT THE PROGRAM PARAMETER BLOCK« 


10. PRINT THE SUMMARY INFORMATION 
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GLOSSARY OF ALLFILE ANO DNFILE TOKENS 


OO=#TINTGR INTEGER EGs 123 

OO#TEDC ENVsOIV«eBLOCK CODE CDONFILE ONLY) 

OL2TREAL REAL NUMBER EG?! 1263 

OleTpuc DATA OIVISION BLOCK CODE CONFILE ONLY) 

O22TNNLIT NON*NUMERIC LIT EG: "ABC". 

O2aTPOC PROCsOIVeBLOCK CODE (CONFILE ONLY) 

032TXON EXPLICIT. DATA NAME EG! O01 DATA#NAMEs 

O3aTFILEREC EG: READ FILEREC | 

O4aTXSECN EXPLICIT SECTION NAME EGt XSECN SECTION. 

OS=*TXPAR EXPLICIT PARAGRAPH NAME EG! XPARs 

O6BTFIXUP FIXUP THE INDICATED OCUR ACCORDING TO THE CQOnE. 
O7=TWORD wORD EG: MOVE 1 TO WORD. 

O8=TWMON MONITOR wORD OPERAND | 

O92TCSPL CORRESPONDING LEFT EG? MOVE CORR TCSPL TO TCSPR 
102TCSPR CORRESPONDING RIGHT. EG: MOVE CORR TCSPL TO TCSPR 
LisTOQUAL WORD QUALIFIER EG: MOVE 1 TO WORD OF QUAL 

l2aTLABL LABEL EG: GQ TO LABLs« 

13*TALTER ALTERCED) OPND EG: ALTER TALTER TO PROCEED Tn P26 
L43TPERF PERFORM OPERAND EGt PERFORM PERF, . 

ISsTPTHRU PERFORM THRU OPERAND EG3s PERFORM P1 THRU PTHRUSs 
16=2TLMON MONITOR LABEL GPERAND | 

T7eTLQUAL LABEL QUALIFIER €G% GU TO Pi OF LQUAL 

18=TRESwWD RESERVED WORD EG? GO» MOVE» ADDs 

19=TEOB END@“OF*BLOCK MARKER@FOR UNBLOCKING 

20=sTEUF END=OF=FILE MARKER=FOR UNBLOCKING 

212TDOT PERIOD 

222=TPC PICTURE 

232TDOLAR DOLLAR CARD 

24=2xTERROR ERROR OR WARNING MESSAGE 

25=TCARD CARD MARKER I.E. SOURCE CARD ENCOUNTERED 
26STPROCESSEN | PROCESSED DICTIONARY ENTRIES CONFILE ONLY) 
272TRDFNS REDEFINES/RENAMES OPERAND EGt 02 X REDEFINES RNFNS 
282TLABELREC OPERAND OF "LABEL RECORDS ARE CLAUSE . 
292TCSPS CORRESPONDING SENTINFL*O0ELIMITS A CSPL*#CSPR PAIR 
302 TSTATESTOP STATEMENT DELIMITER 3 | 

3L2TINDEX “INDEXED BY" OPERAND EG! 02 DN INDEXED BY TINNEX 
322TSUBS SUBSCRIPT FOR PREVIOUS OPERAND.».» CREATED IN ExPLODE | 
332TBOOSTOP BOOLEAN PRIMARY DELIMITER«e eC REATED IN REARRANGE | 
34a TARITHOP ARITHMETIC OPERATOR EG? AaODDOs DIV3 | 
352TINOSECT FOR INITIALIZING ALTERED GO TO PARS OF INOeoSECTIONS 
36aTMINIMUM ESTABLISHES MINIMUM SCALE AND LEFT PART FOR 


INTERMEDIATE RESULTS OF AN ARITHMETIC EXPRESSION 


OO=szTCOPX 
O12TLIT 
O2=TCOP 
O3aTDADDR 
O4=2TOP 
O52TBADOR 
O62TBITS 
O7=TSUBORINX 
OgaTstgLINnx 
O92TFACTOR 
1O2TBOUND 
LIsTALTERINDEX 
12=sTOPNDX 
T3aTLITFIX 
14=TSTOP 

15: 

162 
T7=TMEMVALUE 
T8=aTCARDADR 
losTEup 
20"TEOF 
23=TDOLLAR 
242TERROR 
252TCARD 
262TCOMMLITFIX 
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GLOSSARY OF SEGFILE TOKENS 


COP TARLE ‘INDEXeeeIF O THEN INLINE TCOP FolLOoOnsS 
LITERAL OF 4 OR 8 BIT UNITS. : 

INLINE COP 

ADDRESS EVENTUALLY RELATIVE TO oSEGO 

S*LANGUAGE OPERATOR | 

LABELsTABLE QCUR CHANGED INTO BRANCH ADR BY FIXUP 
BIT STRING TO INSERT INTO CODE+sesGENERAL USE 

INLINE COP FOR SUBSCRIPTS OR INDEXES 

LINKS SEcTIONS BELONGING TG THE sAmE cOpE SEamFNT 
FACTOR FOR SUBSCRIPTED INLINE COPS 

BOUND FOR SUBSCRIPTED INLINE COPS 

POINTER RELATIVE TO ALTER TABLE BASE 

SETS LIT FLAG TO 9.6.C0P TABLE INNEX 

MAKE A LIT RELATIVE TO A CERTAIN BASECFOR I/n USE) 
SIGNALS CHANGE IN CODE SEGMENTS 

UNUSED 

UNUSED 

FOR FIXUPseasINITIALIZES DATA SEGMENT VALUE IN CODEF 
DATA AOR TO PRINTOUT WITH CARD CCREATED IN NATSYN) 
END@OF*BLOCK MARKER@=FOR UNBLOCKING 

FND@OFe@FILE MARKER*FOR UNBLOCKING 

DOLLAR CARD © 

ERROR OR WARNING MESSAGE 

CARD MARKER TeEe SOURCE CARD ENCOUNTERED 

MAKE A LIT RELATIVE TO A CERTAIN BASECFOR Isn USE) | 
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MISCELLANEOUS 


NOTE? 

URS = FIELD FOR ANY USE YOU WISH. 

we os TYPE NOT PRESENT IN THIS PASS 
se =a TYPE PERMANENTLY DROPPED IN PREVIOUS PASSe 
USAGE 

OOO=RESERVED 

001=C MP 

O102DISPLAY 

OLlamMIXED 

LOO0=ASCII 

LOLZINDEX ; 

LLOZUNDEFINED 

LiL=CmMP=3 


DATA NAME FLAGS (CONFLAGS) (10) 


REFERENCE LAREL SORT GROUP WOT A COND FILLER MONITORED FILE 

COUNT RECORD FILE FLAG CORR NAME NaMe 
QOPERAND NAME OPND 

(2) (1) (1) C1) C1) (1) Ci) C1) (1) 


Ses ava Se eanane et a VPaeSet anne KGB GOGO Senet STK HHS HR SEKHARABEEHB ATER EB EOKESTHKHHETHBeE Aa Bya ean & 
REFERENCE COUNTCTO MINIMIZE NOs OF COP ENTRIES)! 

OsNQ REFERENCES © : 

LsONE REFERENCE 

2:TWO OR MORE REFERENCES 


LABEL FLAGS (6) 


THIS SECT MONITORED OBJECT OF AT PERFORMED EXPLICIT 49FLAG 


CONTAINS . LEAST ONE TERMINAL GO TQ 

ALTERED © ALTER PARAGRAPH PAR 

GO TO PAR 

Ci)* C1) © Ci) C1) C1)* 


# ON IN SECTION & ALL ITS PARAGRAPHS 
SOFLAGILZPRIORITY GTR 49 
EyPLICIT Go TO PAR FLAG IS SET IN QUALIFICATION RESOLUTION (IIT) 


URS IN LITERAL TOKENS (4) 
FORMAT ALL SIGNFD BINARY 
€1) (1) ¢1) 02) 


FORMATSO=s881Ts» 1L24RIT BINARY #1isLIT IS 24BIT BINARY 
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BASIC cOP ($3) 
ADDRESS LENGTH (LOGICAL SIZE) SuB FLAG DATA TYPE ASCII FLAG 
C31) (18) C1) (2) (1) 


DATA TYPE 
OOZUNSIGNEN 4 BIT 
OlsuUNSIGNEND & BIT 
LOSSIGNED 4 BIT 
LieSIGNED 8 BIT 


COP FACTORS (680) 
#SUBS FACTOR] FACTOR2 FACTOR3 SUBSCRIPT BOUNDS 
(2) (18) (18) (18) (24) 


Fee INFO (80) 

UNUSED FILE FILE FILE FILE. FPB FILE MAX 
LAREL HARDWARE ACCESS LIMITS FLAG NUMBER REC LEN 
TYPE 

(37) (4) (7) (4) C1) (9) (18) 


See aE GK Bae* Seas SF Feet aag gts SV ae Sse st santa aee@ eens asus an weeoaaaea 
2 a 


PCINFO C74)- 
MASK ADR MAPSZ (CORE $2) SCALE SIGN CLASS 82 ce 
(24) (18) (F) © 3) (3) Ci) 1) 


SIGN CLASS 
OzU OSNUMERIC INTEGER 
iaS L=NUMERTC REAL 
2nJ 2aN— 
38K 3S2AN 
“Ga 42zAB 

5=2AE 


MON INFO (30) 
MONITOR SYMBUL ADRs MON SYM LGTH 
€24) (6) . 
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ALLFILE! OUTPUT FROM INITIAL PARSING (1) 


OOaTINTGR _ C294¢CLENGTH#8)) 
TYPE COLUMN SCALE 8YTE LENGTH ERBCDIC LITERAL 
(6) ¢7) (8) (8) (255 MAX) 
OL=TREAL SEE OO2TINTGR 
O2=TNNLIT SEE OO2TINTGR 
O3=TXDN (13) 
TYPE COLUMN 
6) (7) 
O4=TXSECN ae % SECTIONS ARE MARKED AS SUCH ON DNFILE BUT 
| % AS TXPAR ON ALLFILE 
O52 TXPAR SEE O3=TXDN 
O6aTFIxuP | hk 
O72TWORD SEE 03"TXDN 
OB8=TWMON SEE O3=TXDN 
O9=TCSPL SEE 03=2TXDN 
10a TCSPR SEE O3=*TXDN 
LisTQuAL t 
128TLABL SEE 03=2TXDN 
132TALTER SEE O3=TXON 
L4=TPERF SEE O3=TXDN 
LSeTPTHRU SEE O3=TXDN 
16=TLMON | SEE O3=2TXDN 
L7=TLOQUAL poe 
18=TRESWO | (29) 
TYPE COLUMN KEY CIN HEX) 
(6) ¢7) (16) 
19=TEOR (6) 
TYPE 
(6) 
20=TEOF SEE 19=TEOS 
2i=TooT SEE 03=TXDN 
22aTPC SEE 03=TXDN 
232TDOLAR (36) 


TYPE FLAGS 
(6) (30) 


242TERROR 


TYPE COLUMN 
(6) (7) 


25aTCARD 
262TPROCESSEN 
27aTROFNS 
2B82TLABELREC 
292TCSPS 
303TSTATESTOP 
3L2TINDEX 
32aTSUBS 
332TBOOSTOP 
342TARITHOP 
352TINOSECT 


WARN 
C1) 


(24) 
ERROR# 
(10) 


SEE 


at 
SEE 
SEE 
** 
ne 
ae 
** 
ae 
* 
w* 


19=TEOB 


O3=TXDN 
O3=2TXON 
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ONFILE: OUTPUT FROM INITIAL PARSING (IT) 


OO=TEDC (6) 

TYPE 

(6) 
O12TDDC SEE OO=TEDC 
O2=TPOC SEE OOSTEDC 
O3"2TXON (56+ (LENGTH*8)) 


TYPE LEVEL ONFLAGS DNOCUR STACKHEAD# SYMBOL LENGTH SYMBOLS 
(6) C16) (10) (12) (7) (5) (30 MAX) 


NOTE ¢ LEVFL=s2 CHARACTERS 


O4=TXSECN CSO*CLENGTH*8)) 
TYPE 49 SEG¢ CURRENT LABEL STACKHEAD# SYMBOL LENGTH SYMBOLS 
FLAG SECTION OCUR 
OCUR 
(6) (1) (7) (1?) (12) (7) (5) (30 MAX) 


SRR SBSH a VW a Sa earn Oaeagesge a @ HA VBGatBaea Boggs VF aC geSesaaes Be euataa es *neweaeaaGn®s ea @ a 


SEG# IS SET RY THIS PASSse¢SYMBOL SCRAMBLE DONE BY THIS PASS 


OS=TXPAR SEE O42TXSECN 
O6aTFIXKUP (23) 
TYPE oCUR FIXUP CODE 
(6) (12) (5) 
MARK SUCH THINGS AS: 
Ae NOT CORRESPONDING OPERANDs 
Bs GO TO PARe 


0O7=TWORD ~—6 CL B+ CLENGTH#8) 2 
TYPE STACKHEAD# SYMBOL LENGTH SYMBOLS 
(6) C7) (5) (30 MAX) 
O82TWMON SEE O7=TWORD 
O98TCSPL SEE O7=2=TWORD 
1OaTCSPR SEE O7TWORD 
LIisTOQUAL SEE Q7=TwORD 
L2aTLABL SEE O7=TWORD 
13"TALTER SEE O7=2TWORD 
L4eaTPERF SEE O7sTWORD 
IS2TPTHRU SEE O7=TWORD 
16"TLMON SEE O7sTWORD 
L72TLQUAL SEE O72#TwWORD 


182TRESWO a 
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192TEOBR - (6) 


TYPE 

C6) | 
20aTEOF |. SEE 19=TEOB 
212TOUT ae 
22= TPC C3J0+CLENGTH*B)) 


TYPE PC OCUR STACKHEAD# SYMBOL LENGTH SYMBOLS 
(6) 12) (7) (5) (31 MAX) 
A BLANK 1S INCLUDED AT THE END OF THE PICTURE TO PROVIDE A CONVENIENT © 
DELIMITER FOR PICTURE PROCESSOR ANO TO KEEP PICTURES UNIQUE FROM LABEL 
NAMES IN DICTIONARY PROCESSING PASS 


23=TDULAR (36) 

TYPE FLAGS 

(6) (30) 
242TERROR we 
25=TCARD wh 
262=TPROCESSEDO ak 
27=TRDFNS SEE O7=2TWORD 
Z2AsTLABELREC. | SEE O7=TwORD 
292TCSPS SEE OO=TEDC 
302TSTATESTOP ne 
3L1#TINDEX wa 
322TSUBS wk 
33=TBOOSTOP wt 
342 TARITHOP ke 


352TINDSECT Lal 


DNFILES OUTPUT FROM DICTIONARY PROCESSING (ITI) 


SS nee BSB SF VSS HAs BsGnh On uu GBawsenensanaana® as 


OOzTEDC (6) 

TYPE 

C6) | 
O12TNNC SEE OO=TEDC 
O2=TPOC SEE OO0=TEDC 
O3=2TXON | (44) 


TYPE LEVEL ONFLAGS SAMENAME OCUR 
(6) (16) (10) (12) 

FILLER: FILLER FLAG=1 
WORKING@STORAGE SECTION? ENTRY=0 


O4=TXSECN (38) 
TYPE 4OFLAG SEG# SECTION OCUR SAMENAME OCUR 
(6) C4 (7) 12) (12) 

OS=TXPAR SEE O4=TXSECN | 

O6=TFIXUP (23) 


TYPE OCUR FIXUP CODE 
(6) C12). »€5) 


O7=TWORD (18) 

TYPE UNRESOLVED OCUR 

(6) (12) 
O82THMON SEE O72#TWORD 
O9=TCSPL SEE O7=TWORD 
10=TCSPR SEE O7=TWORD 
LL=TQUAL SEE O72TWORD 
~L23TLABL SEE O7=TWORD 
13=TALTER SEE O7=TWORD 
L4=TPERF SEE O72TWORD 
YSeTPTHRU SEE O7sTWORD 
16*#TLMON SEE O72TWORD | 
17STLQUAL SEE O72TWORD 
18=TRESWD “* 
19=TEOB SEE O02TEDC 
20aTEOF SEE OO#TEDC 


2i=TOOT a 


4j 


4? 


22"TPC (23+CLENGTH#B)) 
TYPE OCUR LENGTH SYMBOLS 
(6) ¢12) ¢5) C31 MAX) 
PICTURES HAVE BEEN LOOKED UP AND NOW OCUR = UNIQUE PICTUREs SYMBOLS 
ARE RETAINED FOR CONVENIENCE FOR PICTURE PROCESSING PASS* 


232=TDOLAR . (36) 
TYPE FLAGS 
(6) €30) 
Z242TERROR ae 
253TCARD we 
262=TPROCESSED (26) 


TYPE #BITS 

(6) (20) 

AT BEGINNING OF EACH BUFFER *= USED TO INDICATE HOW MUCH DATA was 
PREVIGQUSLY PROCESSED IN THIS ITERATIVE PASS CWHICH ALLOWS THE 
DICTIONARY TO OVERFLOW) * THIS TYPE IS OROPPED IN THE NEXT PASS; 


27sTROFNS SEE O7=TWORD 
28sTLABELREC SEE O7eTWORD 
292TCSPS SEE OC=sTEDC 
302TSTATESTOP a 
312TINDEX at 

322TSuBS ah 
33=TBOOSTOP xt 

342 TARITHOP we 


352TINOSECT | sala 
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DNFILES OUTPUT FROM QUALIFICATION RESOLUTION CIIT) 


OO=TEDC DROPPED 
O12TODC (6) 
TYPE 
(6) 
O2=TPOC DROPPED 
O3=TXDN (56) 


TYPE LEVEL ODNFLAGS SAMENAME OCUR SCOPE 

(6) (16) (10) (12) (12) 

ONFLAGS REFsCNT.s HAS REEN UPDATED 
OSFTXSECN C31) 


SSCS ABE ABA SKE BHSSMRHESBHESHMEBHLA SEHK AE BERNEA SB 


TYPE LABEL FLAGS SEG# SAMENAME OCUR 


(6) (6) (7) 12) 
-O5=TXPAR «SEE O4=TSECN 
O62TFIXUP DROPPED 
O7=TWORD (28) 


TYPE RESOLVED OCUR ONFLAGS 
€6) C42) (10) : 


ONFLAGS NEEDED FOR THINGS LIKE SPECIAL PROCESSING OF CONDITION 


O8=TWMON SEE O7=TWORD 
O9*TCSPL SEE O7*TWORD 
LOeTCSPR SEE O7=TWORD 
LiSTOQUAL DROPPED 
122TLABL (43) 


SOROS HH SHEE STAASHMHADRASHSAAHSHSSHKSHSRBEDRETSHAUASEHHRSEE HEHEHE 


TYPE LAREL FLAGS SEG# SECTION OCUR RESOLVED OCUR 


6) (6) (7) +142) (12) 
L3=TALTER 51) | 


NAMES 


TYPE LABEL FLAGS SEG# SECTION OCUR RESOLVED OCUR OBJECT TIME 
| ALTER INNEX 


(6) (6) (7) (12) (12) (8)* 


* FOR QUALSRESs USE ONLY 
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14aTPERF (51) 7 
TYPE LAREL FLAGS SEG# SECTION OCUR RESOLVED OCUR TERM PAR # 
(6) (6). (7) C12) . (12) (8) 

TERM PAR#® CANNOT BE THE OCUR BECAUSE OF 8 BIT LIMIT 

IS2TPTHRU SEE 14=TPERF 

16sTLMON SEE 12=TLABL 

L7aTLQUAL DROPPED 

TasTRESwWD at 

19#TEOB SEE O1=TODC 

2OaTEOF SEE O1=TOODC 

21l2ToOOT . ee 

22eTPC C23+CLENGTH#8)) 

TYPE OCUR LENGTH! SYMBOLS 
(6) (12) (5) | €31 MAX) 
BKRQeKHX aS aesbFaeSuseeusanannsoanae 

232TDOLAR OROPPED 

242 TERROR (17) 


TYPE WARN ERRORS, 
(6) C1) (10) 


25eTCARD a 
267 TPROCESSED DROPPED 
272TROFNS (52) 
TYPE RESOLVED OCUR ONFLAGS SAMENAME OCCUR SCOPE 
(6) (12) (10) (12) C12) 
2B82TLABELREC . SEE O7=TWORD 
29BTCSPS SEE 012=TDDC 
30=TSTATESTOP ae 
31isaTINDEX ae 
322TSUBS ek 
33*TBOOSTOP kt 
348TARITHOP tt 


35aTINDSECT we 
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PCINFOt OUTPUT FROM MERGE (CIV) 


(91) ; 

MASK MAPSZ LENGTH | SCALE SIGN CLASS BZ CP ERROR 
ADDR CCORE S7) CLOGICAL $72) FLAG 
(24) ¢€18) (18) CF) (1) (3) (1) (1) (1) 


MAPSZ=CORE SIZEssLOGICAL SIZE= # UNITS TO ACCEPT FROM SOURCEss 

IF ERRORFLAG=1 THEN MASK ADRe = ERROR# AND SCALE = CARD CULUMNe. 
MASK IS IN CONSTANT POOLessLENGTH LATER BECOMES PART OF BASIC ChPa.e 
OTHER INFO LATER BECOMES PCINFO PORTION OF ELEMENTARY TOKEN. 


SIGN 

O2US UNSIGNED (4 OR 8 BIT) 

L2SS HIGH ORDER DIGIT ¢4 OR & BIT) 

2sJS HIGH ORDER DIGIT OF LAST UNIT (4 OR 8 BIT) 
32KS HIGH ORDER CHAR (8 BIT) 

Q=ES +92 eCRsNB (8 BIT) 


CLASS 

OzINTEGER €4 OR 8 BIT) PC 999 

TsREAL (4 OR 8 BIT) PC 999V99 CNUMERTIC SCALED) 
22NE (8 BIT) PC $$482£8 OR 9996994 

3aAN (& BIT) PC XX9A 

4=AB (8 BIT) PC AAA 


SAE CS BIT) PC XXBAA 
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ALLONFILE’ OUTPUT FROM MERGE CIV) 


OOZTINTGR © C334CLENGTHeB)) 
TYPE COLUMN URS SCALE BYTE LENGTH EBCDIC LITERAL 
(6) (7) (4) (8) (8) (255 MAX) 
OLsTREAL SEE OO=TINTGR 
O22 TNNLIT SEE OO=TINTGR 
O32TXON (63) 
TYPE COLUMN LEVEL ONFLAGS SAMENAME OCCUR SCOPE 
(6) (7) (16) (10) (12) (12) 


O4sTXSECN (42) 
TYPE COLUMN URS LABEL FLAGS SEG# SAMENAME OCUR 
(6) (7) C4) (6) (7) (12) 


IF MONITOR FLAG=1 THEN FOLLOWS A NON@NUMERTC LITERAL TOKENs 


OS=TXPAR SEE O4=TXSECN 
O6=TFIXUP “= 
O7=TWORD (69) 

BRFSS RABE RKSDFE HSE F Se GSK FSSA K SBF A OSE RKB OSS HE RVR BFS MVR SEHR SF SEBO SEBS eennsa FBG 
TYPE COLUMN URS DNOCUR DNFLAGS MONITOR SYMBOL ADRs MON SYM LGTH 
(6)  ¢7) (4a) ¢€12) C10) (24) (6) 

OBS TWMON | OROPPED | 
O9=TCSPL SEE 07=TWORD 
10=TCSPR SEE O7=TWORD 
LisTQUAL ; ae 
122TLABL | (54) 
TYPE COLUMN URS LABEL FLAGS SEG# SECT OCUR LABEL OCUR 
(6) ¢7) (4) (6) (7) (12) (12) 


URS! 
DUMMY TLABL CREATED FOR UNUSED 
Ae GO TOs 
(1) (3) 


L3=2#TALTER —  €62) 


TYPE COLUMN URS LABEL FLAGS SEG# SECT OCUR LABEL OCUR ALTER INE 
(6) 7) (4) (6) 7) (12) (12) (a) 
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LaelPERF (62) 


TYPE COLUMN URS LABEL FLAGS SEG# SECT OCUR LABEL OCUR TERM PAR 


(6) ¢7) (4) 6) (7) 612) O42) (a) 
15=2TPTHRU SEE 14eTPERF 
16=TLMON | DROPPED 
172TLQUAL -- 
18=2TRESWD | (29) 


TYPE COLUMN KEY CIN HEX) os 
(4) (7) (16) 


19sTEOB (6) 

TYPE 

(6) 
20=TEUF SEE 19=TEOB 
21=TOOT | (13) 


TYPE COLUMN 


(6) (7) 
222 TPC (25) 


TYPE COLUMN PC OCUR 


(6) (7) (12) 
23=TDOLAR (36) 


TYPE FLAGS 
(6) (30) 


242TERROR (24) 


- TYPE COLUMN WARN ERRORS 


(6) (7) (1) (10) 
252TCARD SEE 19=TEOB 
262 TPROCESSEN =- 

27" TROFNS (63) 


TYPE COLUMN URS RESOLVED OCUR DNFLAGS SNAM OCCUR SCOPE 


(6) (7) C4) ¢€12) ~~. €10) (12) €12) 
Z2B8aTLABELREC SEE O72TWORD 
29 TCSPS DROPPEO 
3OzTSTATESTOP ae 
31sTINOEX et 
322TSUBS we 


33=TBOOSTOP | ee 


4a 


34eTARITHOP ee 
35zTINDSECT THIS TOKEN PUT ON SEGFILE AT SPECIFIC LOCATION 
AWAITING PROSYN PROCESSINGe + «SEE SEGFILE LAYOUT 
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DNINFO!? CINTERNAL FILE) DATA DIVISION SYNTAX CV) 


(96) 
LEVEL JUST BWZ OCCURS COPX PC  LGTH ADRs USAGE ¥#SUBS 
VALUE FLG . 
(7) (1) ¢1) 18) (12) (1) (18) €33) ©3) (2) 


IF PCeoFLG THEN LGTH=PCINFO INDEX. 
IF LEVEL=50 THEN LGTH=MOM OCUR, 
IF #SUBS NEO 0 THEN SUBSCRIPTED & #S5SUBS2#192s90R 3e 


ASCII FLAG 


O=EBCOIC 
LzaSCI1 


IF ENTRY=0 THEN ENTRY=WORKING STORAGE ELSE ENTRY#FD3 
(96) 


LEV SD FD UN 01 FILE FILE FILE FILE FPB Max 
USED OCUR LABEL HARD ACCESS LIMITS NUM REC 
TYPE 
C7) €21) €1)2 #€32) €12) €4) (7) C4) €1) C9) ¢€18) 
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ALLONFILE! OuTPuT FROM EXPLODE CVI) 


OO=TINTGR | (33¢CLENGTH#B)) 
TYPE COLUMN URS SCALE BYTE LENGTH EBCDIC LITERAL 
(6) (7) (4) (8B) (B) (255 MAX) 
OLS TREAL SEE OO=TINTGR 
O2=TNNLIT SEE OO=TINTGR 
O3=2TFILEREC (281) 
TYPE COL URS COPx RASIC FPR PC ON JUST BWZ MON USAGE 
COP INFOQ INFO FLAGS INFO 
(6) ¢7) C4) €12) €53) ¢€80) (74) (10) CL €1) €30) 3) 


O4aTXSECN (42) 
TYPE COLUMN URS LABEL FLAGS SEG# SAMENAME OCUR 
(6) (7) C4) (6) (7) (12) 
~OS=TXPAR SEE O4=TXSECN 
O6=TFIXxUP as 
O7 =TWURD (281) | 
SFB NST ee ate aS StF saat asanst aa STKE BaeEBBSEHESMaEKREZBGaesae a em 
TYPE Cot URS CoOoPx BASIC COP  $PC. DN JUST BWZ MON USAGE 
| CoP FACTS INFOQ FLAGS INFO 
(6) (7) ¢€4) ¢€12) ° €53) (80) ¢€74) ¢10) (1) C1) ¢€30) ¢€3) 
O8=TWMON “= 
O9=TCSPL SEE O7=TWORD 
10=TCSPR 7 SEE O7=TWORD . 
LisTQuAL © on 
A22TLABL . ¢54) 
TYPE COLUMN URS LABEL FLAGS SEG# SECTION LABEL 
. — OCUR OCUR 
C6) (7) (4) ¢€6) (7) (12) (12) 


A3ZSTALTER (62) 
TYPE COLUMN URS LABEL FLAGS SEG# SECTION LABEL ALTER TABLE 
OCUR OCUR INDEX 
(6) (7) (4) (6) (7) C12) C12) (8) 


LQasTPERF (62) 
TYPE COLUMN URS LABEL FLAGS SEG# SECTION LABEL TERM PAR® 
| OCUR OCUR 
(6) (7) C4) (6) — C7) (12) (12) (8) 


15a TPTHRU SEE 14=TPERF 
162TLMON ae 
T72#TLQUAL adi 
18=TRESWD | (29) 

TYPE COLUMN KEY CIN HEX) 

(6) (7) (16) 
192TEUB 

TYPE 

(6) 
20sTEOF SEE 19sTEOB - 
212TOUT (13) 

TYPE COLUMN 

€6) (7) 
22=TPC DROPPED 
Z23=TDOLAR (36) 

TYPE FLAGS 

(6) (30) 
24=TERROR (24) 

TYPE COLUMN WARN) ERRUR# 
6) 07) (1) €10) 
252 TCARD SEE 19=TEOB 
26=TPROCESSED =e. 
27=TROFNS =s 
26=TLABELREC | =“ 
295TCSPS _ .. 
3Q0=TSTATESTOP “* 
312TINDEX SEE O72=TWORD 
322TSUB ae 
33=TBOOSTOP . a 
342°TARITHOP th 


352TINDSECT «t 


CIMPLICIT LEVEL 50) 
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ALLONFILEs OUTPUT FROM PROCEDURE DIVISION SYNTAX CHECK (VII) 


OO2TINTGR C264(CLENGTH*SIGNED)*(4 OR 8))) 
TYPE URS SCALE LENGTH LITERAL 
(6) (4) ¢€8) (8) (255 MAX) 
O1l2TREAL SEE OO=TINTGR 
O22TNNLIT SEE OOaTINTGR 
(O3STFILEREC . (271) 
TYPE URS COPX BASIC FPB PCINFO ODNFLAGS JUST BW2 MON 
COP INFO INFO 
(6) (4) (12) (53) (80) (74) (10) C1) C1) ¢€30) 
O4RTXSECN (23) 


TYPE URS LABEL FLAGS SEG# 

(6) C4) (6) (7) 

LABEL OCCUR NEED NOT BE IN TOKEN SINCE IT CAN BE COMPUTED FROM 

A SEQUENTIAL EXPLICIT LABEL CQUNTERs THE ALTER TABLE INDEX CAN ALSO 
BE COMPUTED TO GIVE TO THE CODE GENERATOR» 


OS5=TXPAR SEE O42 TXSECN 
O6=TFIXKUP = 
O7=TWORD (271) © 
TYPE URS COPX BASIC COP PCINFO ONFLAGS JUST BWZ2 MON 
COP FACTORS INFO 
(6) C4) €12) 4(¢53) (80) (74) (10) €1) ¢1) (30) 


NOTE: FOR DATE» TIME» TODAYS#DATE» ETC» A TWORD IS CREATED CINTERNAL 
TO PROSYN) wITH SUBFH0s9 #SUBS NEQ O» AND FACTOR TELLS WHICH: 
L=DATEs 2=TIMEs 3sSTODAYS*DATEs 4S=TODAYS*NAME 
URS 
INDEXED*ON COP RELATIVE INDICATOR INDEX 
(1) (2) (1) 

INDEXEDsON STHIS ITS AN INDEXED DATANAME CON INDEXED BYsea) 
CGP RELATIVE INDICATOR! 

SET INTERNAL TO CODE/GENERATOR 

O=USE SEG# & DISP IN BASIC COP 

12=0ISP IS RELATIVE TO REUSEABLE TRASH BASE OISP 
INDEX = 77 C USAGE INDEX. 


O8sTWMON ies 
O9STCSPL oa 
102TCSPR =- 


LisTOQUAL ==. 
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125TLABL (47) 
TYPE URS LABEL FLAGS SEG# SECTION OCUR LABEL OCUR. 
(6) 4) 66) (7) (12) (12) 
SEARCH ROUTINE IN PROSYN USES LOW ORDER BIT OF URS TO TELL CONDITION 
ROUTINE IN CODEGEN TO USE NEXT SENTENCE OCUR (NS+OCUR)» NSeOCUR IS SET. 
BY SEARCH ROUTINE IN CODEGENe 


L3"TALTER (55) 
TYPE URS LABEL FLAGS SEG# SECTION OCUR LABEL OCUR ALTER INDEX 
(6) (4) (¢6) (7) (12) (12) (8) 
L4eTPERF (55) 
TYPE URS LABEL FLAGS SEG# SECTION OCUR LABEL OCUR TERM PAR# 
(6) (4) (6) (7) (12) (12) (8) 
LSSTPTHRU OROPPED CALL PERFORMS= 14=TPERF) 
162TLMON | =o 
L7STLQUAL o= 
L82TRESWD (30) 


TYPE URS KEY 
(6) Ca) €16) 


IF KEYSALPHABETIC OR NUMERIC THEN 


URS 
NUT CLASS UNUSED 
(1) (7) 
IF KEYERELATIONAL OP CLSSeLEQ»NEQsEQLsGEQsGTR) THEN 
URS 7 
UNUSED IMPLIED SUBJECT 
(7) (1) 
L9=TEOB (6) 
TYPE 
(6) 
20"TEOF SEE 192TEOB 
21eTDOT DROPPED (CHANGED TO RESERVED) 
22eTPC -« 
23=TDOLAR (36) 


TYPE FLAGS 
(6) €30) 


24eTERROR C24) 
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TYPE COLUMN WARN ERRORS 


(6) (7) Se) (10) 
252TCARD SEE 192TE08 
262TPROCESSEN ae 
272TROFNS oe 
282TLABELREC =. 
29ReTCSPS DROPPED ; 
30aTSTATESTOP SEE 192TEOB 


GENERAL USE I5 TO nELIMIT A STATEMENT FOR CODEGEN RECAUSE THE cnDdEGEN 
CONTROL ROUTINE ALWAYS OOES A GET FOR A RESERVED WORDse EXAMPLE OF USE 
OF TSTATESTOP! THE MOVE VERB MAY HAVE MULTIPLE RECEIVING FIELOS AND 
MUST KEEP SCANNING IN PROSYN UNTIL IT GETS A NON*RECEIVING FIELN TOKEN 
* PUTTING OuTl THE TSTATESTOP MAKES SCANNING IN CODEGEN EASIERs ALSO 
USED IN PROSYN BY SORTs ACCEPT/DISPLAYs DUMP» SET» STOP RUN»s AND 
DATA MANAGEMENT, 


31i2TINDEX SEE O7*TWORD & IMPLICIT LEVEL 50 
322TSUB (75) 


TYPE uRS COPX BASIC COP 
(6) C4) (€12) ¢€53) 


33#TBOOSTOP SEE 19=2TEOB 
342TARITHOP (19) | 
TYPE URS OPERATOR OPERATOR ROUND SIZE MULTIPLE RECEIVING 
CLASS 7 ERROR FIELDS 
(6) 4) (4) (2) C1) (1) C1) 
IF OIV3 THEN? 
URS 
REMAINDER ROUNDED REMAINDER UNUSED 
(1) 61) ¢2) 
IF STORE THEN 
URS 
UNUSED EMIT*e¢B0F(1) FOR ** OR. / IN COMPUTE 
(3) (1) 
OPERATOR? | 


OZADDsSI=SUBs2atMULs 3SDIVOGBEXP es S=2M0D 2 6=STOREs7@STOREMODs 
BaDELETE@TOP@OF@STACKs 9ECHANGE™SIGN 
OPERATOR CLASS? 
EG: ADLDOsADN1IsADND2s A003 
SUBO»sSUB1,SUB2sSUB3 
DIVisDIV2s,0IV3e 
MULiseMUL2? 


35=TINDSECT 033) 


TYPE TXPAR ALTER INDEX TLABL OCUR TLABL SEG 


(6) (8) | ie 12) (7) 
362TMINIMUM | 


TYPE URS MINIMUM SCALE MINIMUM LEFT PART 

(6) ¢4) 6B) (8) | 
USED BY COMPUTE TO ESTABLISH MINIMUM SCALE & LEFT PART FOR 
INTERMEDIATE RESULTS 


5§ 
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LABELTARLE!t OUTPUT FROM CODEGEN CVITII Dae 


(96 BIT ENTRYsee15 PER DISK SEGMENT) 
TYPE=3 (LINK) 

TYPE UNUSED LABELs«OCUR 

C2) (77) C17) 


TYPE=OelsZ2 COSPLAIN ADR»1LSAND ADRs 2@=THEN ADR) 

TYPE UNUSED SEG# CODE. #RADDRS #LENBS ¥#DISPS #DADDRS 

(2) (13) (7) (22) ¢13) (13) (13) (13) 
NOTES #0I1SPS IS COUNT OF DISPS THAT ALSO HAVE A SEG AS PART OF THE 
ADDRESS» #®0DADDRS HAVE DISP BUT NO SEGe 
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SEGFILEs FROM ALL PRIOR PHASES 


NOTE! MERGEs DATSYN» AND CODEGEN EACH. HAVE A DISCRETE AREA FOR THEIR 
TOKENSs 18=TCARDADR IS EMITTED ONLY BY DATSYNe MOST OF THESE TOKENS 
WERE DESIGNED FOR USE BY COOEGENs | : 


bees eee sneeeeoseeeoseeeeevseeeeesentseeseseeeentinasesesehHeoseseeseseseseseoeoaessbeonaesnede 
SEGFtHItLE H —E AOE R COISK SEGMENT Ooae2 DISK SEGMENTS) 
SEE COMPILER LISTING FOR CONTENTS 


te eeecoueevnseeeeneeneeod 


aa 
OISK SEGMENTS) 


CROCE Ome Hn eRe Re HOEK EH CECE HORE HEE ERE HERE DHE RHODES 


PSEUDOA CODE OIC TIONARY Cil 

(144 BIT ENTRYese10 PER DISK SEGMENT) 

USED TO COLLECT cODE TOGETHER AS USER SPECIFIED 
LINK LINK UNUSED CODE #BADORS #LENBS #0ISPS #DADODRS 
HEAD TAIL 
€20) €20) €30) (22) ¢43) (13) (13) (13) 


eee seeonsecaeGesevesoasese sees ee eeds ees ee ese cevst- ss aeseeebeeseeseseveeaeseeoeseeeabseseoese eed 


TINODS ECT ENTRY TABLE C1 DISK SEGMENT) 
C10 BIT ENTRYeee100 ENTRIES) 
NUMBER OF ENTRIES FOR THIS CODE SEGMENT 
€10) . 


$oeteeveseaseeeseevsesees se seseots ee sess ssedatFeveeveseseesaesesedb ested eseetavntiteesoes 
TINO SECT TOKEN S €100 DISK SEGMENTS) 
C27 BIT ENTRY eee53 PER DISK SEGMENT) 
TXPAR ALTER INDEX TLABL OCUR TLABL SEG@ 
(8) (12) (7) 
NOTE THAT THIS SETUP LIMITS EACH USER INDEPENDENT CODE SEGMENT TO 
53 ALTERABLE GOTO PARAGRAPHS 
CCC CORREO R HHT ORE HHO HHO RHO HKRHEBR OHH HFC HHH HCO HREHHRHEHHO KE HHO HH HE HCE HEH HHH RSH HR HEHE H OE 
PATH nrcTtTIOQONAR Y CDATA MANAGEMENT) 
Peseoeveeevoeeseeeeseoeuns eee esesstee cents seenteanseevnsesesoesesbesersenseheaneeseeseenenes 
MERGE TOK EN S 
SEE DOCUMENTATION ON TOKENS 
®Povesbsaeeseeasese seve e tse esse eees eae eseobkeneds et ene esseeevaeeeetaoeeseeseesebhtnveved 
DATS YN TOKEN S 
SEE DOCUMENTATION ON TOKENS 
CEH ROHR HEHRHEOHER HH ARHHHEH HEHEHE H HEH OHHH EHH HO HEHEHE H HD HHEO HEH EHH HEHEHE RH DEO 
DNOTCTTA BLE 
(47 BIT ENTRYee+e30 PER DISK SEGMENT) . 
SEG DISP LENGTH ALLOCATE.DISKsONsCODEFILE. 
C7) +%¢€21) #¢€18) C1), ; 
SEG=DATA DICTIONARY INDEX 
LENGTH=B8YTE LENGTH 
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INITIALIZE! L=©WORKING STORAGE» FILE LABELS? ETCe 
OFOTHER CFD O1 RECORDS» ETC.) 

LAST ONDICTTABLE ENTRY IS TERMINATOR SET TO ALL O BITS 
SCRE SHAH SSHRC HAHAH E DA HOSE HEH AREER HERERE EERE EEREHOREOEEEOS ; 
c OP TARBRLE . . 

(55 BIT ENTRYee1+26 PER OISK SEGMENT) 

BASIC COP C(TYPE#0) 

TYPE SEG DISP LENGTH SURF OTYPE ASCII 
(2) C7) (24) (€18) C1) (2) C1) 

NOTEtIN FINAL COP TAALE? | 

IF 1 SUB THEN 1 EXTRA COP TABLE ENTRYaea 

If SUBF=1 THEN FOLLOWED BY 

SUBSCRIPT ENTRY (CTYPEs1) 

IF 2 OR 3 SUBS THEN 2 ExTRA cop TABLE ENTRIES, 

TYPE #SUBS UNUSED BOUND FACT1 UNUSED 
(2) (2) (1) (24) (24) (2) 

AND IF #SUBS>0 THEN FOLLOWED BY 

SUBSCRIPT ENTRY #2 CTYPE=2) 

TYPE UNUSED FACT2 FACT3 UNUSED 
(2) (3) (24) (24) (2) 


Sebo eoeseecevseseeeseseoesoeesese eve aesteesta eset HPaeseeevesPesesesetvnseveebsbseoeannstegeoteen 
F P 8B €2 DISK SEGMENTS) 
ONE ENTRY PER FILE DECLARED IN PROGRAM 
FPB CAS MCP EXPECTS IT) OTHER FILE INFO 
(1 SEG) - . (1 SEG) 


S$RCCC HCO ROOM He ooo eae HOR HEH OHH ROCHE HC HR RaHHEPO CHEER FEHR HO RO EH HOVE HE RHF HO RER HCH HREH OHH ARRAS 
ALTER TABLE 
€19 BIT ENTRYeee75 PER DISK SEGMENT) 
TXPAR SEG TLABL OCUR. 
(7) (12) 


VWEEVETETELETererre reer rrr eee er errr rere rere rer rrr rr rr errr rere ee rere oe 
COOEGEN TOKEN S 
SEE BELOW 


0O=TCOPX — €29) 
TYPE COPX SUBFLAG #SUBS SURBEDsDN SEG# 
(6) 12) 1) (2) (1) (7) 
OL=TLIT C164CCLENGTH4+SIGN)*(4 OR 8))) 
TYPE LTYPE LGTH LSYMB 
(6) -€2) (8) (255 MAX) 
LTYPE 


Os4 BIT UNSIGNED 
1<8 BIT 
224 BIT SIGNED 
J=RESERVED 
O2=TCUP CINLINE) (64) 
TYPE BASIC COP #SUBS SUBBED.DN COP RELATIVE INDICATOR 
(6) (53) (2) C1) C2) 
SUBKED«DN3 
IF SuBF AND SUBBED+sDN THEN SUBSCRIPTED DATANAME 
IF SUBF AND NOT SUBBED*ON THEN INDEXED DATANAME 


O3=*TOADDOR (32) 
TYPE TOADOR RELATIVE INDICATOR DADOR 
(6) C2) (24) 
TOADDR RELATIVE INDICATOR? 
OO=RESERVED 
O1sDaTA SEG O RELATIVE 
LO=RELATIVE TO TRASH 


O4=TOP (18) 
TYPE OP CODE 
°€6) (12) 

O52TBADOR (39) 


TYPE LABELsTABLE OCUR 
€6) (33) 


06=TBITS Ci4+LENGTH) 


TYPE BIT LENGTH BIT STRING 
(6) (8) (255 MAX) 


39 
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O7=2TSUBORINX (61) 
TYPE BASIC COP COP.RELs INDICATOR 
(C6) (53) — (2) 

OB=TSEGLINK (34) 


See ae eeae ae aceGaCGaeGnewenseeueass ees Oeaesu fea ws 


TYPE DISK ADR OF NEXT SECTICN SEG# 
TO BE PLACED IN THIS 
PHYSICAL CODE SEG 


(6) (20) . (8) 
O9=TFACTOR (24) 

TYPE FACTOR 

(6) (18) 
102TBOUND (30) 

TYPE TABLE ROUND 

(6) (24) 
LASTALTERINDEX © (14) 


TYPE ALTER INDEX: 

(6) (8) 

NOTEs SIZE OF CONTAINER FOR ALTER TABLE IS NOT KNOWNs THIS IS A 
POINTER RELATIVE TO ALTER TABLE BASECUSED BY GOPAR OPERATOR). 


12= TOPNDX SEE OO=TCOPX 
L3=TLITFIX (284CLENGTH*(4 OR 8))) 
TYPE LTYPE LENGTH BITsOISP TNADDR RELATIVE INDICATOR LITERAL 
(6) ¢2) (8) (10) (2). 160 MAX) 
NOTE! LENGTH DUES NOT INCLUDE BITeDISP OR TOADDR RELATIVE INDICATORs 
BIT+sDISP IS BIT LOCATION IN THE LIT TO BE FIXED UPs THE LENGTH OF 
THE AREA TQ BE FIXED UP IS ASSUMED TO BE 24s 
NOTE: FOR I/0 TYPE VERBS THE ADR IS CHANGED IN FIXUP TO BE BASE REGe 
RELATIVE. IEt INCLUDE CUP TABLE & EDIT MASKa 


14=sTSTOP SEE 19=TEOB 
NOTE TERMINATES A PORTION OF CODE WHEN CODEGEN ENCOUNTERS A TXSECN 
WITH SEG# NEC SEG# OF LAST TXSECNe 
15 * 
16 “% 
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17a TMEMVALUE — CPO*CLENGTH#(4.0R 8))) | 
TYPE ASCII LTYPE LIT ALL RIGHT ONOICT OIGIT DEST LSYMB 
FLAG LENGTH FLAG JUST TABLE ISP SIZE 
INDEX 
(6) 1) (1) (8) CQ): 15 (10) (24) (18) (¢€160 MAX 


NOTE: MAPS "VALUE" CLAUSE ONTO CODEFILE SG INITIAL VALUES ARE LOANED 
AT RUN TIME. 
DNOICTTABLE INDEX OF O INDICATES DSEGO 


18=TCARDADR (51) 
TYPE DNDICTTABLE INDEX DIGIT pISP cOPX 
(6) (9) (24) (12) 
NOTE: TO GIVE AN ADDRESS ASSOCIATED WITH A CARD TO BE PRINTED ON THE 
REPORT. 
192TEOR (6) 
TYPE 
(6) 
20=TEOF SEE 19=TEOB 
23=TDULAR —  ¢€36) 
TYPE FLAGS 
(6) (30) 
242TERROR (24) 
TYPE COLUMN WARN ERROR# 
(6) (7) (1) (10) 
252TCARD SEE 19=TEO 
262=TCUMMLITFIX C28+C(LENGTH*(4 OR 8))) 


TYPE LTYPF LENGTH FIXeCTNUM TDADDR RELATIVE INDICATOR LITERAL 

(6) (2) (8) (10) (2) C160 MAX) 
FIELDS ARE ANALOGOUS TO THOSE FOR TLITFIX EXCEPT FOR FIXseCTNUM. THE 
LITERAL IS ASSUMED TO BE A COMMUNICATE MESSAGE WHICH IN WHICH CTeol | 
THRU CTe10 MAY NEED TO.BE FIXED UPe EACH BIT OF FIXsCTNUM CORRESPONDS | 
TO A CT+ WHAN THE I*TH BIT OF FIX*CTNUM IS ONs FIXUP WILL FIX THE 
CTel CTHE I*TH CT). 


OISK ADR 
eeoeee ese 
0 
i 
2 
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CODEFILE! QUTPUT FROM FIXUP (IX). 


CONTENTS 

aetaveue 

PROGRAM PARAMETER BLOCK CPPB) 

RUN STRUCTURE 

DATA DICTIONARY 

DATA (THE VARIABLE DSEGO*e¢DISKsADR POINTS TO HERE) 
CODE DICTIONARY 

CODE 

FILE PARAMETER BLOCK(S) (FPR) 

PATH DICTIONARY CDATA MANAGEMENT) - 


COBOL S*=MEMORY ALLOCATIONs 
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A TYPICAL COHUL PROGRAM LAYOUT IN MEMORY IS AS FOLLOWS! 


FIRST ENTRY (COPX=1) #> 


DATA SEG 0 


STACK BASE 
STACK LIMIT 


BASE Bene amy 


sa Cas enuaanney 


aS uSaaweanaa >» 


EDIT TABLE (8 CHRS) 


COP TABLE 


SPECIAL REGISTERS 
DATA*NAME MONITOR 
SYMBOLS 


EDIT MASKS 


FILE"LIMITS 
NON*QVERLAYABLE 
USER DATA AREAs — 
COMMUNICATE AREAs 
CONSTANT POOL 
TRANSLATION TABLES 
TRASH AREA FOR 
TEMPORARY RESULTS 


ALTER TABLE 


STACK 


eB eBaEUM Beene nunaavt st we 


OVERLAYABLE 
USER DATA AREA 


REINSTATE INFO ANO 
RUN STRUCTURE 


DATA OICTIONARY 


REKKEKRAERNRAEKEKREK KKK EK 


S«CODE 


WERKE KKREKEHKKRKKEHKEKE 


<==" BASE REGISTER 


STATIC MEMORY 


ee ea ene en 


DB ce, sa isa, fs 


A 
8 


| 
DYNAMIC MEMORY 
i 


{ 
<eere LIMIT REGISTER 


DM"STATUS 


THE SPECIAL REGISTERS 
Swi PC 

é 

é 

6 
Sw8 PC 
TALLY PC 
JULIAN@*DATE PC 
TIME PC 
TODAYS*0aTeE Pc 
TUDAYS*NAME PC 


ARE ALLOCATED AS FOLLOWS! 
9 CMP 

9 CMP 

9€5) CMP 

9¢5) CMP NOTE? YYODDD 
9¢€7) CMP NOTES HHMMSST 
9(6) CMP NOTE MMNDYY 
x€9) 


9¢6) CMP 
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MONITOR STATEMENT 


THE MONITOR STATEMENT MUST PRECEDE “IDENTIFICATION DIVISION". SYNTAX 
= MONITOR «<FILE*NAME> [CDEPENDING] C<DATA*NAME LIST> & <LABEL 
LIST>). 


THE <LABEL LIST> MAY CONSIST OF ONLY ‘tALL* WHICH IMPLIES EVERY 
PROGRAM LAREL es 


SYMBOLS FOR MONITORED DATA*NAMES ARE PUT IN DATA SEGMENT ZEROs THIS 
IS BECAUSE IT IS LIKELY THAT A DATA=NAME WILL BE A RECEIVING FIELD 
MORE THAN ONCE AND THIS METHOD SAVES CARRYING THE SYMBOLS AS A 
LITERAL IN THE CODE SEGMENTS« 


SYMBOLS FOR MONITORED PROGRAM LABELS ARE SET UP AS LITERALS IN THE 
CODE WHERE THE LABEL EXPLICITLY OCCURS. - 


A DATSYN ROUTINE (BUILD.COPS) IS RESPONSISLE FOR ASSIGNING A MONITOR 
BUFFER OF 132 CHARACTERS IN DATA SEGMENT ZEROs IT ALSO BUILDS A 
MONITOR COP AS COP # 1 UNLESS "NOCHP" IS SPECIFIED: 


AT CODE SEGMENT ZERO» DISPLACEMENT ZERO» A ROUTINE IS EMITTED WHICH 
CONSISTS OF A MVN» COMMUNICATEs AND XITs THIS ACHIEVES A WRITE ON 
THE USER SPECIFIED LINE PRINTER FROM THE MONITOR BUFFER«s THE 
ROUTINE IS ENTERED AFTER THE MONITOR BUFFER HAS BEEN SET UP AT 
VARIOUS POINTS IN THE a aan, MOTIVATION FOR THE ROUTINE IS TO 
SAVE CODE SPACE. 


MONTTOR ee 


EG: MONITGR PRINT CMASTERs XxX & PARI De 


MERGE INPUT MERGE OUTPUT 
MONITOR CTRESWD) MONITOR CTRESWD) 
PRINT CTwORD) PRINT CTwWORD) 
MASTER (CTWMOQN) a 
XXX . CTwMON) ‘ 
PARI CTLMON) P 
PAR1 (TXPAR) WHERE THE LABEL APPEARS 


"PARI" CTNNLIT) 
“es 
MASTER (CTWORD) WITH MONITOR LENGTH AND 
MONITOR SYMBOL ADDRESS 
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DATSYN OUTPUT 


MONITOR CTRESWO) 
PRINT CTFILEREC) wITH MONITOR BUFFER ADDRESS 
PERIOON c¢TnoT) 


EGt MONITOR DEPENDING PRINT CAs Bs C 8 ALLDs 


MERGE INPUT 


MONITOR CTRESWD) 
DEPEND CTRESWN) 
PRINT CTwORD) 


A CTwMON) 
B (TwMON) 
C CTwMON 3 


NO INDICATION OF “ALL” BECAUSE TNNLITS APPEAR AFTER EACH EXPLICIT 
LABEL. 
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SUBSCRIPT AND INDEX OPTIMIZATION. 


Se GenuGQ ean nantat®ae* cuantroenvase @aderta 


RULES FOR SUASCRIPTS. 


le 


as 


ds 


LITERAL SUASCRIPTS CAN NOT BE SIGNEDs THEREFOREs THEY CAN 
NOT GENERATE TOO LOW AN ADDRESS. 


THE BOUND IS THE MAXIMUM DIGIT DISPLACEMENT OF THE LAST 
VALID ENTRY CWHICH IS ANY LENGTH AND MAY BE IN DIGITS OR 
CHARACTERS). 


THE INTERPRETER CHECKS EACH SUBSCRIPT LEQ Oe IF SOs THEN 
ERROR « AFTER ALL GATHERING AND MULTIPLYING OF SUBSCRIPTS 
Is NONEs THIS IS CHECKED AGAINST BOUNDS AND IF > BOUNDS 
THEN ERROR, 


IF ALL SUBSCRIPTS FOR A DATANAME ARE LITERALSs» PROSYN 
CHECKS FOR BOUNDS ERROR. OTHERWISEs EVEN THOUGH A LITERAL 
MAY BE LARGER THAN THE CORRESPONDING OCCURS VALUE IN THE 
DATA DIVISION DECLARATION» WE DONT CHECK (CTHE VALUE OF 
ANOTHER SUBSCRIPT MAY OFFSET THIS VALUE AND BRING THE 
TOTAL WITHIN BOUNDS )< 


RULES FOR INDEXESs 


le 


2a 


DATA*NAMECINDEX * LITERAL) $ THE DATA*NAME ADDRESS fS 
OPTIMIZED AND THE LITERAL DROPPED. 


DATA*NAMECINDEX © LITERAL) ¢ IF THE NEGATIVE LITERAL PLUS 
THE MATASNAME ADDRESS ARE GTR Os whE OPTIMIZEs OTHERWISE, 
WE DONT KNGW IF THE INDEX wILL MAKE THE FINAL AODRESS 
WITHIN BOUNDSeesSQ WE ODONT GPTIMIZE AND WE LET THE 
INTERPRETER CATCH ANY ERRORSs 
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~~ GLOBAL+DOLLAR FORMAT 


alt RESERVED WORD FOR $ CARD 
0 LIST 
1 DOUBLE 1=HOUBLF»O=SINGLE (DEFAULT) 
2 SUPPRESS 
3 SPEC 
4 CONTROL 
5 CODE 
6 ANSI CVSe DEFAULT 683500 COBOL WHICH 
ASSOCIATES "ELSE" wITH SIZE ERROR 
CLAUSE AND NORMAL 1/0 AT END ANN 
INVALID KEY) 
7 PARSE CMONITOR) 
8 OIcT (MONITOR) 
) DNQUAL (MONITOR) 
10 LQUAL (MONITOR) 
ii MOIGE (MONITOR) 
12 DATSYN CMONITOR) 
13 EXPLODE CMONITOR) 
i4 PROSYN (MONITOR) 
15 CONEGEN CMONITOR) 
16 FIXUP (MONITOR) 
17 DEBUG CNO DEBUG YIELDS NO cODE FOR CnROL 
MONITOR OR ODUMPoeseDERUG IS DEFAULT) 
18 ERRMESS (GIVES LISTING OF. ALL COBOL ERRORS) 
19 NOCOP ~ 
20 REFERENCE CPRODUCES MONITOR CONDE FOR VARTABLES 
IN COBOL MONITOR LIST AND REFERENCED 
AS OTHER THAN RECEIVING FIELDeae 
EGs IF A=Bs) 
21 ‘TIME 
22 EXAMINE CONLY IF STOP PRESENT IN INTERPRETER) 


23 = 28 UNDEFINED 
29 RESERVED 


To 


IIs 


IIT. 


IVe 


69 


USE OF DYNAMIC 


PARSE 
Ae RESERVED WORDS 
1s MONITOR OATA DIVISION © 14936 BITS: 
20 PROCEDURE DIVISION = 10944 BITSs 
Be COPY REPLACING A BY Boeese 
le A REQUIRES 14¢C(BeLENGTH OF A BITS).6 
2. B REQUIRES? 
Ae B IS wOaRD 14+(B8*eLENGTH OF B BITS). 
Be B IS QUALIFIED WORD. 
14+¢(8*xLENGTH B)+ 
14+C8xLENGTH OF EACH QUALIFIER) + 
22 FOR EACH IN/OF« 
C+ B IS A LITERAL 
2e+(BeLENGTH UF Bde 
3, LINKS REQUIRE 24 BITS PER REPLACING ENTRY CI.sE. EACH A BY B)e 
Ce MNEMONIC NAMES 
244C8*eLENGTH OF MNEMONIC SYMBOL) FOR EACH 
+16 BITS FOR AN END OF LIST 
DATA NAME QUALIFICATION 
EACH EXPLICIT DATA NAME REQUIRES 34 BITS CMAXIMUM OF 5000 ENTRIES)s 
BUT OVERALL MAX OF 65K BITS NOW = 1928, 
LABEL QUALIFICATION 
EACH EXPLICIT PARAGRAPH/SECTION NAME REQUIRES 37 BITS MAXs OF 4000 
ENTRIES) = 1783: 
MAXIMUM OF 5O ALTERED GO TO PARAGRAPHS. 
MERGE 
Ae CONDITION NAMES EXPANSIONe 
EACH 88 VALUE SPECIFIED REQUIRES 33 BITS IN ADDITION TO THE 
LENGTH OF THE VALUE CHARACTER STRING ITSELFe 
ADD 53 BITS OVERHEAD. 
Be MONITOR FUNCTIONe 
EACH DATA=NAME MONITORED REQUIRES 42 BITSe 
EACH LABEL MONITOREG REQUIRES 18 BITS IN ADDITION TO THE 
CHARACTER STRING OF THE LABEL ITSELFs 
DATSYN 
Ae PICTURES: | 
EACH UNIQUE PICTURE REQUIRES 93 BITSs 
Be FO'Ss 
EACH FO REQUIRES 293 BITS. 
Ceo DATA SEGMENTATIONe 
FACH GROUP OF DECLARATIONS CFILE RECORD AREAS» 77'Ss 01'S) 
WHICH ARE CANDIDATES FOR A DATA SEGMENT REQUIRES 47 BITS FOR 
TEMPORARY PSEUDO DATA OICTIONARYs 
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1ST 3 PASSES == PROCEDURE DETAILS 


GENERAL NESCRIPTION OF INITIAL PARSING 3 
OVERALL THE PASS IN BROKEN INTO TwO PARTS 
ie PARSING OF MONITOR THRU DATA DIVISIONs 
26 PARSING UF THE PROCEDURE DIVISION. 
INVOLVEO IN DOING THE PARSE ARE PROCEDURES FOR 
-fe MERGING SOURCE LANGUAGE INPUTS CINCLUDING LIBRARY COPY) 
26 SCANNING AND ISOLATING SYMBOLS CRESERVEDs DATA NAMES» LABELS ETC) 
3e WRITING OUTPUT FILES CALLFILEsONFILEs REPORTsLIBRARY*NEW SNURCE) 
4e LOOKING UP RESERVED WORDS 
Ss COPYING SUBSCRIPT LISTS 
6¢ REPLACING ITEMS IN COPY 
7« BASIC SYNTAX CHECKING FOR 
Ae UVERALL 3 ; 
1. THAT ALL DIVISINS ARE PRESENT AND IN PROPER ORDER 
26 FIRST ITEM IS A RESERVED WORD CEXCLUDING $ CARDS) 
Bs MONITOR 3 
1a HAS A FILE NAME : 
26 LEFT AND RIGHT PARENS PRESENT 
36 STMT TERMINATED BY A PERIOD 
Ce ID MIVISION ¢ 
EXCEPT FOR PGM"IO0 THE COMPILER FINDS THE NEXT 
FIXED WORD IN COLUMNS 8"11 
ALSO SUPPLIES DATE*COMPILED 
De ENVIRONMENT DIVISION 2 
le OBYECT*COMPUTER 
As VERIFIES AND SAVES MEMORY SIZE 
Be VERIFIES AND SAVES CODE AND DATA SEGMENT 
2s SPECIAL“NAMES 3 
Ae SAVES CURRENCY SYMBOL 
Bs SETS DECIMAL*PT COMMA 
Ce BUILDS A LIST OF MNEMONIC NAMES 
34 FILE=CONTROL:? 
JusT CUPIES 
4s I*U"CONTROL ! 
COPIES IT 
Ese DATA DIVISION 8 
1. ISOLATES FILE SECTION ITS FD SD AND RECORDS FROM 
W*STORAGE SECTION 
26 Foe SD AND W*eSTOR GO TO ON FILE WITH LEVEL "00" 
AND EXCEPT FOR W@S THE FD FLAG IS SET TRUE 
FILE SECTION 
te EACH ENTRY. MUST START WITH "FO" OR *SD" 
26 A FILENAME MUST BE PRESENT 
38 EVERYTHING FROM FO TO A PERIOO IS COPIED 
Ae EXCEPT DATA AND LABEL RECORDS 
DATA REC CLAUSE DROPPED 
LABEL RECORD = TLABELREC 
46 FOR THE RECORD DESCRIPTIONS 3 
EACH MUST START WITH AN INTEGER LEVEL “ERROR IF NOT» 
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ERROR IF LEVEL IS "00's 
FILLER OR TWORD MUST FOLLOW LEVEL “ERROR IF NOT» 
ERROR IF A FIXED NAME FOUND BEFORE A PERTIOO IS FOUND» 


WORKING"STORAGE 


) 


AME AS FOR FILE RECORDS 


Fe PROCEDURE DIVISION 


le 
Aé 


GENERA 
1s 
ge 


3% 
4, 
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IF DECLARATIVES: 

ERROR IF NO PERIOD FOLLOWING "DECLARATIVES"s 
ERROR IF SECTION NAME MISSINGs 

ERROR IF NO END DECLARATIVES» 

ERROR IF NO USE STMT» 

IF END DECL FOUND BUT NOT "DECL* THEN ERRODRs 
END DECL FOLLOWED By PERIOD, 

IF “END” IN COL 8811 = CONSIDERED “END DECL"s 
GENERALS 


ERROR IF FIRST ITEM NOT A PARAGRAPH OR SECTION NAME 

GOR DECLARATIVESs 
ERROR IF NO PARAGs FOLLOWING SECTION,» 

LAST INPUT MUST BE TERMINATED BY A PERIOD» 

"exIT" MUST BE FOLLOWED BY A PERIOD» 

PRIORITY GTR 99 “ERROR? 

MISSING PERIOO AFTER "SECTION" AND PARAGRAPH» 

FOR THOSE VERBS REFERENCING LABELS “ERROR IF 

LABEL NOT TWORD OR TINTEGER> 

"FROM" OR "TOM MISSING ON SUBTRACTs ADDs MOVEs ALTER 
FILE NAME MISSING FROM READs SELECT 
iL PROCFOURE DIVISION PROCESSING INVOLVES 
RECOGNIZE AND TYPING EXPLICIT SECTIONS AND PARAGs 
RECOGNIZE THOSE VERBS THAT HAVE LABEL REFERENCES ANO 
MARKING THE LABELS 

SUPPLYING A SEGMENT NUMBER TO QUTPUT TOKENSCTXSECNsTXPAR) 
FOR THOSE VERBS WHERE LABELS ARE REQUIRED = VERIFY THAT 
A LABEL IS PRESENT AND IS AN INTEGER OR WORD 

IF DECLARATIVES IS END DECLAR» PRESENT AND VICE"*VERSE 
RECOGNIZING "CORRESPONDING" ANO MARKING ITS OPERANDS 


PROCEDURE DOLLARS 


Le 
26 
3a 
4s 
5S. 


SCANS A $*CARD & RETURNS DIAGNOSTICS 

LOOKS UP CONTROL WORDS (DOLL «WORDS ARRAY) 

SETS GLOBALsDNLLAR BOOLEANS ACCORDINGLY. 

OUTPUTS TO REPORT FILE (TO PROVIDE FOR ERROR PRINTING & "CONTROL" ) 
BUMPS CARDeMARKERSCT 


ROUTINE FEEDS 

COLLATES INPUT FROM CARDS» TAPE/DISK & LIBRARY 
WRITES NEW TAPE/OISK IF REQUESTED 

PERFORMS SEQUENCE CHECK IF REQUESTED CDEFAULT=ON) 
REPORTS EXPLICIT LABELS CCLABLF ) 

PURGES BLANKS BEYOND COL 12 OF CONTINUATION CARDS 
WRITES REPORT FILE 

MAINTAINS CARD@MARKER COUNT 

WRITES NEW LIBRARY IF REQUESTED 


1s 
24 
36 
Go 
50 
66 
76 
Be 
Ga 


VOTOS: 


TAPE/DISK RECORDS IF REQUESTED 


7? 


106 RESEQUENCES OUTPUT IF REQUESTED 


PROCEDURE DERLANK3 
le SKIPS BLANK COLUMNS OF THE CARD ImMAGE 


PROCEDURE GETewORD VARYINGS 
ls ISOLATES A TOKEN WHICH CONFORMS TO'WORD" SPELLING RULES 


PROCEDURE GET*NUMBER VARYING3 
fe ISSOLATES NUMBERS OR HYPHEN*NUMBERS OR WORDS 
2¢ PRIOR TO INITIAL ENTRY SCLAS=NUMBERSC 


PROCEDURE GET*NNLIT VARYINGS 
, le ISOLATES STRINGS THAT START WITH A QUOTE 
2s INCLUDES FINAL QUOTE WITH THE STRING AND RETURN NNLIToC 
3e¢ IF END*sOFeCARD ENCOUNTERED RETURNS QUOTEsC 


PROCEDURE GETeUNDIGITsLIT VARYING3 
1, ISSOLATES AN UNDIGIT LITERAL 


PROCEQURE GETsNEXTs TOKENS 
le ISSOLATES A NEW TOKEN ON THE CARD IMMAGE AND SAVES THE 
SYMBOL IN ISYMBOL IF NECESSARY 
2s IF SCLAS IS OTHER THAN NEW*TOKENsC THEN ISOLATES. THE 
CONTINUED TOKEN AND CONCATONATES IT WITH ITSYMBOL 
WHEN NECESSARY 
36 REPORTS THE SCAN CLASS. (SCLAS) OF THE TOKEN 


PROCEDURE SCAN3 
ts GETS A TOKEN FROM THE CARD IMMAGE 
2s SAVES THE CHARACTER VALUECNCV) FOR ANYONE INTERESTED 
3, DERLANKS THE CARD ImMAGE FOLLOWING THE TOKEN 
4s LOOKS FOR A CONTINUATION CARD("=" IN COLUMN 7) 


PROCEDURE NOTsFOUNDS 
de VERIFIES THAT THE SYMBOL LENGTH LEQ 30 AND DOESNT END IN " 
2. CHECK FOR REPLACING CANDIDATES 
35 CHECKS FOR APPEARENCE IN COLUMNS 8°11 


PROCEOURE GETsREAL «LIT 
te COMBINES THE INTEGER AND FRACTION PARTS OF A REAL 
“LITERAL 
2e ACCOUNTS FOR DECIMAL=@POINT ITS COMMA DECLARATION 
36 ALLOWS FOR MULTIPLE DECIMAL POINTS 
4s ASSUMES THAT TLGTH® LENGTH OF THE INTEGER PART 
-ANO THAT THE FRACTIONAL PART IS READY TO BE SCANNED 


PROCEDURE SCANNER$ 
le COMBINES TOKENS FROM. SCAN INTO LARGER CONSTRUCTS 
2e¢ LOOKS UP TWORD IN RESERVED wORD LIST AND SKIPS NOISE 
WORDS*#NOTE SENTENCES* AND NOTE PARAGRAPHS 
3e¢ NETECTS THE DECIMAL POINT OF A REAL NUMBER 
He DETECT ADJACENT QUOTES IN A NNLIT 
5a DETECTS weet AS A SPECIAL CASE 
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6¢ TRANSLATES UNDIGITS A®F INTO THEIR HEX EQUIVALENTS 


PROCEDURE SCTRL3 
be CALL ON RPLGET IF ‘A COPYee#REPLACING IS IN PROGRESS 
26 IF DOTFLG wAS SET ON A PRIOR CALL THEN A PERIOD IS 
— SUPPLIED THIS CALL 
3e CALLS SCANNER FOR NEXT TOKEN 
4s CHECK FOR LIBRARY END*OF*FILE 


PROCEDURE MAKALL+RETURN VARYINGS 
WRITE TOKEN AND CAUSE A RETURN IN CALLING PROCEDURE 


PROCEDURE TIME.TOsQUIT VARYINGS 
DETERMINES END OF SUBSCRIPT LIST AND RETURNS 


PROCEDURE MKSURS3 
WRITES SUBSCRIPTS COMBINING ANY SIGNS WITH THE FOLLOWING 
INDEXES ON RELATIVE INDEXING 


PROCEDURE SEARCHsMNEMONICSCADDIT)VARYINGS 
SEARCHES MNEMONIC NAME PORTION OF DYNsWA@IF ADDING IT ne0$ TO THE 
LIST@ADDING BEGINS AT END OF COPY LIST 


ROUTINE MAKLI83 

HANDLES CHANGING TO CREATING LIBRARY FILES AND 

BACK AGAIN« 

THREE CASES HANDLED 

le JUST STARTING NEW LIB 

2¢ FINISHING LIB . 

3e¢ FINISHING PREVIOUS LIB AND STARTING ANOTHER BY HAVING 
LIB NAME ON PREVIOUS LIB S TERMINATING "LY CARD 
TeEs Ek. LTR 


é 
4 
ti "Lisa 


PROCEOURE MAKLIBsSCAN VARYING3 
TO CAUSE GETTING OF LIBRARY FILE NAME 


PROCEDURE COPYSCANsNOTsPERIOD VARYING | 
SPEIAL CALL ON SCAN BY COPY IS TO PREVENT THE DEBLANKING 
AND CALL OW FEED ON THE BREAK CHARACTER 
THIS ALLOWS COPYING TO START ON THE IMMEDIATE NEXT CARD 


PROCEDURE CHECK seCOPY6LISTCADDIT)3 
SEARCHES THE DYNewA FOR A MATCH ON THE OPeA IN “REPLACING OPcA BY 
OP «B"* IF ANDIT THEN OUPLICATES CAUSES ERRORS | 
IF NOT ADDIT THEN SCTRL WANTS THE TEXT TO BE. PLACED 
IN APPROPRIATE AREASCTYPE4SCALE*4ISYMBOL «LENS ISYMBOL*SKEY) 
A CALL ON RETURNeCOPYe TEXT DOES IT 


PROCEDURE RETURN.COPY.TEXT3 
SETS UP SCTRL VARIABLES FROM COPY REPLACING INFO AS SCTRL 
WOULD IF IT HAD ISOLATED THE TGKEN FROM THE INPUT 
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PROCEDURE ERRURSseIN«OP.B VARYING : 
SYNTAX CHECKS OPsB *RECURSES TO HANDLE QUALIFIERS AND SUBSCRIPTS 


PROCEDURE PLACE sOPBeINeLIST VARYINGS 
IF SPACE AVAILABLE IN DYNeWA THIS PLACES OPB INTO NYNeWA 


PROCEDURE SUBSCRIPT+ERRORS VARYINGS 
SYNTAX CHECKS SUBSCRIPTS OF OPB 


PROCEDURE REPLACINGe ERRORS VARYING3 
SYNTAy CHECK OF "REPLACING Peer BY OP.sB" PAIRS= IF any ERRORS IT 
RETURNS A le 


PROCEDURE COPYs«PROC VARYING; 
TO SYNTAX COPY STATEMENT AND CAUSE THE SAVING OF REPLACING 
ITEMS IN A LIST 


PROCEDURE INVOKE»PROC VARYING 
le VERIFIES COPY NOT NESTED 
26 VERIFIES LEVEL="01" IN THE DATA™BASE SECTION 
36 OPENS THE DATASET LIBRARY WHOSE NAME IS 
“NOL eDBNAME"/DATASETeNAGE 


PROCEQURE OBseLIT»«TOsISYMBOLS é 
1s BUILDS ISYMBOL DESCRITOR AND FILLS IT WITH “DATA@BASE* 


PROCEDURE PUTs¢DBsTQUALS 
le PROVIDES. "DATA@BASE" AS A LOURe ON THE ONFILE 


PROCEDURE PUT«eCOMPONENTsLISTS 
te PARSES A COMPONENT LIST 
26 SUPPLIES "DATA*BASE" AS A TOUAL FOR EACH COMPONENT@NAME 


PROCEDURE OQUTPUT*sFIXUP3 
To ouTPpul a FIxuP TOKEN ON ITEMS NOT QUALIFYING FOR CORRESPONDING 


PROCEDURE NTRYsERRORCERRNO) VARYING3 
OUTPUTS ERROR AND RETURNS O@TOUTsI@=FDsSDsD8eFIXED NAME 
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MERGE PROCEDURE DETAILS 


TINTGR TYPE 0O 
VARIABLE LENGTH 
26 MERGE 
38 MERGE 
4a MERGE 
* 
TOOC TYPE 1 
36 OROP ON ONFILE CAT START OF BLOCK) 
TREAL TYPE 1 (CVARIABLE LENGTH) 
2@e MERGE ALLFILE ONLY 
36 MERGE ALLFILE ONLY 
46 MERGE ALLFILE ONLY 
* 
TINNLIT TYPE 2 
VARIABLE LENGTH ; 
le MERGE ALLFILE ONLYs MAY BE DROPPED» MAX LENGTH IS 30 CHAR 
20 MERGE ALLFILE ONLY 
36 MERGE ALLFILE ONLY 
4s MERGE ALLFILE ONLY 
* 
TXDN TYPE 3 
3« MERGE & BUILD CONDITION NAME TABLE IF CONDITION FLAG 
ae 
TXSECT TYPE 4 
4s MERGE 
IF LMONITOR AND NOT MONITOR@ALL CHECK MONTTOR FLAG 
AND PUT MONITOR SYMBOL 
* 
TXPAR © TYPE 5 
4s MERGE 
IF LMONITOR AND NOT MONITOR®ALL CHECK MONITOR FLAG 
AND PUT MONITOR SYMBOL 
* 
TFIXUP TYPE 6 (DOES NOT OCCUR) 
* . 
TWORD TYPE 7 | 
fe MERGE CFILE NAME) 
26 MERGE 
3a MERGE | . 
4s MERGE @* IF COND FLAG LOOK UP & EXPAND CONDITION NAME 
ALSN MAY GET € ) TWORDsTINTGR TERRORASIZE ERROR*#ROUNDEDNs 
CREATE TERROR IF INVALID THRU OPERANDS. 
IF WORD MONTTOR CHECK MONITOR FLAG» LOOK UP AND 
PUT MONITOR SYMBOL MEMORY ADORESS 
TWMON TYPE 2&8 | 
le BUILO MONITOR TABLE ™ DONT OUTPUTs DROP 
* 
TCSPL TYPE 9 
TCSPR TYPE 10 


Ge 


TQUAL 


TLABL 
Ha 


TALTER 
as 


TPERF 
As 


TPTHRU 
4e 


TLMON 
ls 


TLQUAL 


TRESWO 
DO 

lo 

26 

36 

as 


JEOB 
TR 
1s 
aa 
36 


TOOLAR 
TR 
RE 


MERGE 2 FILES» TRICKY IF ERRORS» 
PAIRS OCCUR ON ONFILE &8 NOT ON ALLFILEs 
SAVE SUBSCRIPTS FROM ALLFILE AND EXPANDes 
MAY OR MAY NOT BE DELIMITED BY TCSPSs 
* 
TYPE 11 CDOES NOT acCuUR) 
® ‘ 
TYPE 12 
MERGE 


TYPE -i3 
MERGE 


TYPE 14 
MERGE 


TYPE 15 
MERGE 
* 
TYPE 16 
BUILO MONITOR TABLE * DONT OUTPUT» DROP. 
® 
TYPE 17 (DOES NOT OCCUR) 
* 


TYPE 16 


ES NOT UCCUR ON DNFILE 
BUILD MONITOR TABLE & MERGE 
MERGE 
MERGE 
MERGE 
. * 
TYPE 29 


ANSPAREN TO CONTROL ROUTINES 


* 
TYPE 20 
CLOSE FILES AND PREPARE FOR NEXT PASS 
* 
TYPE 21 
MERGE ALLFILE ONLY 
MERGE ALLFILE ONLY 
MERGE ALLFILE ONLY © OROP IF FOLLOWS CONOsNAME ENTRY 
MERGE ALLFILE ONLY 
; * 
TYPE 22 
OUTPUT MASK TO SEGFILEs 
MAKE PCINFO FILE & OUTPUT 
* 
TYPE 23 
ANSPAREN TO CONTROL ROUTINES» 
SET GLOBAL DOLLAR FLAGS 
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ds MERGE ALLFILE ONLY 
Ze MERGE ALLFILE ONLY 
38 MERGE ALLFILE ONLY 
4s MERGE ALLFILE ONLY 
; * 
TERROR TYPE 24 
ALLFILE ERRORS MAY OR MAY NOT MATCH DNFILE TOKEN. 
DNFILE ERRORS MATCH ALLFILE TOKENs EXCEPT IN "CORR" 
OUTPUT ALL ERRORS TO ADNFILE 
fs MERGE FROM FITHER FILE 
@s MERGE FROM EITHER FILE 
3e MERGE FROM EITHER FILE 
4s MERGE FROM EITHER FILE 
IF"CORR”™ COMPLICATIONS MAY ARISE 
CREATE Error IF INVALIn pPIcTuRE OR CONDITION NAME, 
* 
TCARD TYPE 25 
MUST BE KEPT IN CORRECT SEQUENCE WITH ERRORS © 
le MERGE aLLFILE ONLY 
2s MERGE ALLFILE ONLY 
3e MERGE ALLFILE ONLY 
4s MERGE ALLFILE ONLY 
w 
TPROCESSED TYPE 26 (DOES NOT OCCUR) 
; ® . 
TROFNS TYPE 27 
30 MERGE 


TLABELREC TYPE 28 
3a MERGE 
: * 
TCSPS TYPE 29 
4s DELIMITS *“CORR® SERIES ON DONFILE ONLY ™@ DROPPED 
* 
TYPE 30 AND aBOVE DO NOT OCCUR IN PASS Go 
* 


CQORRE SPONDING cOmMBINATIONS 


ALL DN ALL ON 

Ree atk kee x* 

MOVE . MOVE 

CORRESP CORRESP 

TOSPLOA) TCSPLCA) TCSPLCOA) TERROR 
TERROR TCSPR(B) TCSPR(B) 
CERRO HOHE HRAHE HE eH HORE HHH EHH HERE O TEBE EOE HHHDODS 
MOVE MOVE 

CORRESP , CORRESP 

TCSPLCA) TCSPLCA) TCSPLCA) TCSPLCA) 
TCSPR(B) TCSPRCB) TCSPR(B) TERROR 


TCSPLCC OF A) 

TCSPR(C OF B) 

TCSPL(D OF A) 

TCSPRC(D OF B) 
— TCSPS 
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ERCP OmHaHREH HERO KRO EHO HOHER HO HOEFE OC RHO HEB RO HO EH HERO HOES 


MOVE MOVE 
CORRESP CORRESP 
TCSPLOCA) TCSPLOA)D ' TCSPLCA) TERROR 
TCSPR(B) TCSPRC(R) TCSPRCB) TERROR 
TERROR | 
TERROR 


CCRC EO KHOR OB eR Hoe EHEC OHO HHE HO RHR ECE HR HO OHHH OCHO Eee HTH HES 


PROCEDURE PUT3 
PUTS PRE@=FORMMATED TOKEN FROM WwORKAREA TO ADNBUFF 


PROCEDURE DYN swLIM.CHECKCOESC) BITC4a8)3 
ASSURE NESC IS WITHIN THE LIMITS OF DYNAMIC MEMORY 


PROCEDURE PUT+TOswAs 


PuTS TOKEN FROM ALLBUF TO WORKAREA a COMBINES DN TOKEN IF APPLICABLE 


FORMATS TOKENS READY TO MOVE TO ADNBUF 


PROCEDURE MCTBLe¢SETUP(CPisP2sP3)3 
le INITIALIZES THE MASK CONTROL TABLE 


ROUTINE PCseSETUP3 
de INITIALIZES THE MASK CONTROL TABLE WHICH IS CONSTRUCTED 
AS FOLLUWS? 
CLI BIT¢3) CLASS INDEX USED TO SET A CLASS FLAG IN CLASS«WA 
MA BITC4) MASK ADDRESS TO BE EMITED 
MC BITCS) MASK CONTROL USED AS A CASE VARIABLE AND FOR 
PRECIDENCE CHECKING IeEe<+>¢$><2> IS PROPER 
2e INITIALIZES THE CLASS TABLE WHICH IS INDEXED BY THE CLASS.WA 
THE CLASSeWA BITS TAKE ON THE FOLLOWING MEANING! 
O:rDUMMY | 
TsnumMERIC FEDIT SPECIFIED ITeEs + @ $ Z* & ® 
23x SPECIFIED 
3tA SPECIFIED 
439 SPECIFIED 
~=5:8 SPECIFIED 
68INSERT SPECIFIED IeE«e 99/99/99 
710 SPECIFIED 
30 IF DECIMAL POINT IS COMMA WAS SPECIFIED THEN THE MASK CONTROL 
ENTRY FOR “at! AND Ma ARE INTERCHANGED 


4s IF CURRENCY IS LITERAL WAS SPECIFIED THEN THE MASK CONTROL ENTRY | 


FOR "S$" IS INTERCHANGED WITH THE ENTRY FOR THAT LITERAL 


PROCEDURE PCERRORCPCERRORe«NO D3 
le PROCESSES ERRORS IN A PICTURE STRING 


PROCEOURE MAKMSKCINSTRY3 | 
te EMITS A MASK OPERATOR AND MASK ADDRESS 
20 RETURNS IF NO MORE ROOM IN MSKWA OR IF RPT#O 


ROUTINE GETPCHR GET A PICTURE CHARACTER 


le GETS A PICTURE CHARACTER * 
2s CHECKS FOR REPEATED CHARACTER JTeEs 999 
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36 CHECKS FOR REPLICATION FACTOR IaE. 9¢3) 
4s UPDATES MAP SIZE COUNTER 
5s GETS THE MASK CONTROL TABLE ENTRY AS A FUNCTION 
OF THE ERCDIC CHARACTER OBTAINED , 
6+ SETS A CLASS BIT USING THE CLI INDEX OF MCTRL ENTRY OBTAINED 


ROUTINE UPSIZE3 
1s UPDATES THE LOGICAL SIZE COUNTERCSIZE) 
2e SAVES PREVIOUS MASK CONTROL 


ROUTINE MOVITS 
1. EMITS A MOVE DIGITS OPERATOR 
26 UPOATES LOGICAL SIZE 


ROUTINE FLTCHK3 
te CHECKS THE FLOAT TOGGLE 
2¢ EMITS AN INSERT FLOAT OR A MOVE DIGITS 


ROUTINE INSRT3 
1s CHECKS THE SUPPRESS TOGGLE 
2e EMITS AN INSERT SUPPRESS OR 
30 EMITS AN INSERT UNCONDITIONALLY AND 
&s SAVES MCTRL AND SFTS INUFLG FOR SIZE=0 
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DATSYN PROCEDURE DETAILS 


PROCEOURE DATSYNeEXPLODE3 
Rerkeneeaenee MANAGEMENT OF DYNAMIC wORK AREA CDYN« WA) RaaREK ERNE REE 
Le THE PCseTABLE IS LOADED FROM THE PCFILE INTO THE FIRST PART 
OF OYN«eWA AT THE BEGINNING OF DATSYN 
2e FOTseLISTseHEAD CONTANS A LINK TO THE FIRST FILE INFO ENTRY 
CFOTeINFO) LINK LIST #“ONE ENTRY PER SELECTCED) FILE 
3. THE DATA HICTIONARY IS sUILT BEGINNING AT THE END OF NYNeWA 
AND GOING TOWARD THE FOsINFO TABLE“ONE ENTRY FOR EACH QOATA 
SEGMENT CANDIDATE WITH DDICCO? BEING RESERVED FOR THE 
LABEL RECORD WORK AREA IN USE PROCEDURES. 
Me IF DYNe PTR EVER MEETS ODICTsLIMIT AN OQUT“@OF *MEMORY 
CONDITION EXISTSs . 
Ss AT THE BEGINNING OF EXPLODE THE FOIsINFO LINK LIST ANN THE 
DATA DICTIONARY TABLE ARE REPLACED BY AS MANY DNINFO FILE 
ENTRIES AS WILL FIT WITH THE OVERFLOW HANDLED ON A RANDOM 
RETRIVEAL BASIS 
DYN«sWA 
PCeTABLE LOADED 
FROM PCINFO FILE 


@SQmoasa nade aa Geonu Seman anne ees anna ao eb 


FOITsLISTe¢HEAD ==9> <esees ONISTABLE BASE 
C24) FD«aINFO LINK 
ese see eae S LIST FOR DNINFO FILE 
ENTRIES DURING 
ee ee ee eee a Se Ss ee ee EXPLODE 
BHYNsPTR St erereres> CAS MANY AS WILL 
AVAILABLE FIT) 


ODICTsLIMIT euseae>. 
DDICT TABLE 
DDICTsBASE **reern> essere ONT TABLE sLIMIT 


PROCEDURE GETePCeINFO VARYING3 
le VERIFIES THAT THE PCeINFO FOR A PC*aOCUR IS IN THE .PCsTABLE 
26 MOVES IT TO PCeINFO | 
3¢ SETS SIZE TO CORE«¢SIZE 


PROCEDURE FINDsONINFOCOCUR)S FORMAL OCUR VARYINGS 
1. FINDS THE BLOCK CONTAINING THE DNINFO FOR THIS OCUR 
20 If THE BLOCK IS NOT IN MEMORY THEN THE CURRENT BLOCK 
IS wWRITEN AND THE REQUIRED BLOCK IS READ 


PROCEDURE GETeONINFOCOCURDS | 
14 GETS A RECORD FROM THE DNINFO FILE 


PROCEDURE GETS 


ls 
26 
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GETS A TOKEN FROM THE ALLON FILE INTO THE ADNeWA 

USING ADNsTABLECTYPE) FOR UNBLOCKING CRITERIA AND ACTION 
TO BETAKENs TOKENS OF INTEREST WILL BE RETURNED TO THE 
CALLER AND OTHERS WILL BE WRITTEN TO THE QUTPUT FILE 


PROCEDURE MAK «FWDs REFERENCE (FWD OREF D3 


la 
Ze 
36 


PROCEDURE I 
Le 


PROCEDURE P 
ls 
26 


3e 


PROCEDURE C 
1, 


PROCEDURE P 
Le 


PROCEOURE C 
la 


CREATES A FORWARD REFERENCE AT FWDOeREF 

ALLOWS A TWORD OR TINTGROFOR LITERAL FILE*LIMITS) 

SETS FWDaTYPE AS FOLLOWS! 

OtTwORD THAT NEEDS TO BE FIXED UPCFWOsDADDR=TWORDcOCUR) 
AsTINTGR FILE LIMIT CONVERTED TO 24 BITS BINARY 


TS#AeSORTER VARYINGS | 
CHECKS FOR A SORTER DEVICE 
CCHECKS HDWReINFO SUBSCRIPT) 


ARSE saFWOeREFSCREQUIREN -SIZE*ERRMSGoFWDGREF D3 

PARSES FORWARD REFERENCE 

CHECKS TO. SEE IF THE REFERENCE 1S AN UNSIGNED*sNUMERIC> 
ELEMENTARYsCOMPUTATIONAL ITEM OF THE REQUIRED SIZE 
SAVES THE SEGMENT INDEX AND OISPLACEMENT AND MARKS THE 
TYPE AS A FIXED*UP TWORD 


HECK sFWDeFILEsLIMITCFILE sLIMIT)3 
CHECKS CURRENT ITEM AGAINST FORWARD REFERENCE FILE LIMIT 
DATANAMES 


ARSE sSPECIAL*sKEY VARYINGS 
PARSES ACTUAL KEYS FOR REMOTE AND SORTER DEVICES 


HECK seFORWARDeLIST3 
CHECKS CURRENT ITEM AGAINST THE FORWARD REFERENCE 


LIST BUILT IN THE ENVIRONMENT DIVISIONCE +Gse SELECTese 


ACTUAL KEY IS DATANAMEs ee) 


PROCEDURE PUTsDNINFO$ 


le 
2a 


CREATES THE DNINFO FILE 
CALLS ON FINDsONINFO TO GET THE REQUIRED BLOCK 


PROCEDURE MAKsONINFOS 


le 


PROCEDURE A 
1s 


MAKES A ONINFO ENTRY FOR EACH EXPLICIT DATANAME THAT IS 
NOT A FILLER 


SSIGNsCOPX3 
ASSIGNS THE COP INDEX 


PROCEDURE DDOT VARYING} 


le 


2a 
36 


PROCEDURE I 
1s 


VERIFIES THE PROPER CLASS FOR JUST AND BWZ 
DECLARATIONS OF AN ELEMENTARY ITEM 

IGNORES BWZ CLAUSE IF IT IS DONE BY THE EDIT MASK 

RETURNS 2 TO SIGNAL EXIT 


GNORE VARYING3 . 
RECOVERS TO A FIXED NAME AND RETURNS 2 CEXIT) 
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26 RECOVERS TO A DATA CLAUSE AND RETURNS 0 


PROCEDURE ERPs IGNORECERRMSG) VARYINGS 
le QUTPUTS THE ERROR MESSAGE 
2e RETURNSCIGNORE) 


PROCEOQURE GET*TINTGRC(CANT+BEsZERO) VARYING 
1, RETURNS THE BINARY vALUE OF THE CURRENT INTEGER TOKEN 
26 GETS PAST THE LITERAL 
34 TRUNCATES TO 8 DIGITS(MOD 1697775215) 


PROCEDURE GETs«TINTGRsRANGE VARYING 
Le PARSES ees INTEGER*@ICTO INTEGER™"2] CLAUSE 
26 RETURNS INTEGER#=1 OR INTEGER@2 
36 SETS FPBsVARIABLE AND VERIFIES THAT FPBsHDWwR?TOISK 


PROCEOURE DOCCURS VARYING3 
le CHECKS THE LEVEL FOR 77 OR O1 
@e CHECKS FOR VARIABLE LENGTH SPECS 


PROCEDURE FIGURATIVE sCONSTANT3 
Le ENCODES FIGURATIVE CONSTANTS 
2e CHANGES TYPE TO TINIGR/TNNLIT 


PROCEDURE VALUEsERROR VARYINGS 
le CHECKS ADN TOKENS FOR LEGAL VALUE DECLARATION 
@e HANOLES CSIGNED) LITERALSs FIGURATIVE CONSTANTS» 
ALL <LITERAL> AND "OATE=COMPILED" 
36 BUILDS AN ENCODED TINTGR/TREAL/TNNLIT 


PROCEDURE DVALUE VARYINGS 
le PROCESSES THE VALUE CLAUSE OF A DATA DESCRIPTION 
2¢ IGNORES IT AS DOCUMENTATION IF IN THE FILE SECTION 
30 SAVES THE VALUE IN LIT sINFO 


PROCEDURE HARDWARE *sCHECK VARYING3 
le VERIFIES THAT THE DECLARED HARDWARE WILL ALLOW 
4 BIT DATA 


PROCEDURE DINDEXED VARYING 
Le PROCESSES INDEX NAMES AND WRITES THEM TO THE DONINFO FILE 
26 THE OCUR OF THE ASSOCIATED TABLE IS PUT INTO THE 
GRP»LENGTH OF THIS ENTRY 
36 REPORTS THE NUMBER OF INDEX NAMES PROCESSED. 
4e MAINTAINS THE OCUR OF THE FIRST AND LAST INDEX NAME FOR 
SUBSEQUENT ADDRESS ASSIGNMENT 


PROCEDURE DATA«CLAUSES VARYING3 
ls PROCESSES THE CLAUSES OF A DATA DESCRIPTION 
2e VERIFIES THAT BZsJUSTs#SYNC NOT DECLARED FOR GROUP ITEM 


PROCEOQURE GETsTXON3 
dea GETS AN ExPLicttT DATANAME AND ITS DATA CLAUSES 
2¢ RETURNS FOR LEVEL2#04 A "se" OR A FIXED NAME 
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36 SYNTAX CHECK LEVEL NUMBERS wITH SPECIAL HANDLING OF 
660977 AND 88 
4s NELIVERS THE TXON AND ITS ATTRIBUTES TO A HOLD AREA 


PROCEDURE GET+«REN.OPND3 
GETS A RENAMES OQPERAND AND VERTFIES THAT3 
te IT ITS IN THE CURRENT RECORD 


2e THE "THRU QPERAND IS NOT SUBORDINATE TO THE "FROM" OPERAND 


36 ITS LEVEL ?0001%66e/77s.0R 86 
4s ITS A SIMPLE VARIABLE 


PROCEQURE RENAMES.ERPCERRNO)3 
fe QUTPUTS THE ERRCR MESSAGE 
26 RECOVERS TO A TXDNes A FIXED NAME OR A Ma" 
34 GETS PAST THE "4" 


PROCEOURE RENAMESsTHRUD 
Le SYNTAX CHECKS THE THRU PART OF A LEVEL 66 ENTRY 
2« BUILDS A GROUP ONINFO ENTRY 


PROCEDURE LEVEL 663 
le SYNTAX CHECKS A LEVEL 66 ENTRY 
2¢ RUILOS A DNINFO ENTRY 


PROCEDURE RENAME 
Le CONTROLS SYNTAX CHECKING OF LEVEL 66 ENTRIES 
2¢ PUTS THE ELEMENTARY OR GROUP ITEM TO THE ONINFO FILE 


PROCEDURE MODs23 . 
be ADUUSTS THE LOCATION COUNTER TO A 9 MOM 2 ADORESS 
28 OUTPUTS A*FILLER ADDED" WARNING MESSAGE IF NECESSARY 


PROCEDURE ALLOCATECGRPsUSAGE*GRPsLOCALSePTR)3 
ts THIS RECURSIVE PROCENURE ALLOCATES mEmMORY FOR LEVEL 77 
ENTRIES AND RECORD OESCRIPTIONS 
2s PARSES USAGE DECLARATIONS AND COPIES GROUP USAGE TO ITS 
SUBORDINATES 
3s PARSES ENTRIESCHAVING A SAME NAME) FOR ILLEGAL DUPLICATES 
4, FINDS THE pIGIT SIZE OF ELEMENTARY ITEMS AND ADJUSTS TO 
AN EVEN DIGIT ADDRESS AND SIZE FOR GROUP ITEMS 
5. PARSES REDEFINED GPERANOS OF OTHER THAN AN O1 ENTRY 
6e PARSES VALUE DECLARATIONS 
7s PARSES FORWARD REFERENCES DECLARED IN THE ENVIRONMENT 
DIVISION AND THE FILE SECTION 
Bs GETS PAST LEVEL 88 ENTRIES WHICH HAVE ALREADY BEEN PARSFD 
9e RECURSES FOR INCREASING LEVEL NUMBERS 
106 SAVES THE. USAGES OF SUBORDINATE ENTRIES FOR SUBSEQUENT 
REPORTING TO THE GROUP ENTRY 
tie FINDS GROUP ITEM SIZES 
126 ALLOCATES SPACE FOR SUBSCRIPTED VARIABLES 
136 VERIFTES THE CORRECT SIZE FOR REDEFINING AREAS 
14« ITERATES FOR SAME LEVELS 
15s RETURNS FOR LEVELS LEO 01 
16 NOTE?A VALUE STACK TEMPLATE AND STKs PTR INDEX IS USEN TO 
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REFERENCE LOCAL DATA IN ORDER TO SAVE NAMEsSTACK SPACE 


PROCEDURE FINO DIGIT.«SIZE3 

le FINDS. THE DIGIT SIZE OF THE CURRENT DATA ITEM 

26 VERIFIES THAT NO DATA CLAUSES HAVE BEEN SPECIFIED FOR 
AN INDEX DATA ITEM 

34 ADUUSTS THE LOCATION COUNTER TO A CHARACTER ADDRESS FOR 
GROUP ITEMS 

4s VERIFIES THAT A PICTURE WAS SPECIFIED FOR ELEMENTARY ITEMS 

56 CHECKS FOR PROPER CLASS AND SIGN SPECS ON COMP ITEMS 


PROCEDURE RENEFINED «OPERANDS ~ 

le VERIFIES THAT THE REDEFINED OCURSLAST OCUR OR THE OCUR OF 
THE ORIGINALLY REDEFINED AREA 

26 VERIFIES THAT THE LEVELS ARE THE SAME 

3a CHECKS FOR SUBSCRIPTED OPERAND 

4s BUMPS A RENDEFINES COUNTER 

Se RESETS THE LOCN COUNTER AND CHECKS FOR A GROUP ITEM ADDRESS 
NOT CHARACTER ADJUSTED 


PROCEDURE VALUEaPARSE $ 
ls PARSES THE VALUE DECLARATION OF THE WSeSECTION 
2s CHECKS FOR SUBSCRIPTEN OR REDEFINED AREAS 
36 CHECKS FOR VALUE DECLARATION ON PRIOR GROUP ITEM 
4s SAVES THE DECLARED VALUE OF A GROUP ITEM 
5s CALLS MAKeVALUE FOR AN ELEMENTARY ITEM 


PROCEDURE CHECK.FOR.*DUPLICATES3 
1s PARSES THE FOLLOWING? 
Ol Aa 
O02 Ba 
03 Ca 
O04 D «aa 
O4 E eae 
04 D0 «ee CANT BE QUALIFIED 
; 04 B eee APPEARS TO QUALIFY ITSELF 
2« THIS IS ACCOMPLISHED 8Y SAVING A POINTER TO PARENT DATA 
AS A LOCAL TO THE RECURSIVE PROCEDURE 


PROCEDURE APPLYsGROUPsUSAGE3 ; 
le COPIES. DECLARED GROUP USAGE TO SUBORDINATES 
2e CHECKS FOR CONFLICTS 


PROCEDURE CHECKsREDEFINED.SIZES 
te CHECKS REDEFINED SIZE AGAINST THE SIZE OF REDEFINED NPERAND 
2e SPECIAL CONSIDERATION IS GIVEN TO COMP ITEMS 
36 UPONATES RDFNS+COUNT 


PROCEDURE CHECK eFORWARDsGROUPsITEMS 
le CHECKS LOCUR AGAINST THE FORWARD LIST 
LIST BUILT FOR ACTUAL KEY*FILE LIMITS 
AND VA OF I0e PRESENTLY ONLY CHECKS THE ACTUAL KEY 


PROCEDURE FIXUPsGRPsSIZE3 
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ls FINDS THE GROUP SIZE OF AN ITEM AND FIXES IT UP ON THE 
ONINFO FILE 
26 CHECKS FOR GROUP VALUE DECLARATION 


PROCEDURE FOYT *+SEARCHCFODsOCURSADD.IT)3 

le SEARCHES THE FOsINFU LIST FOR A MATCHING FN OCUR 

26 ADOS THE FO.OCUR TO THE LIST UPON REQUEST 

36 WHEN A OUPLICATE SELECT CLAUSE IS SPECIFIEDeA NEW LIST 
ELEMENT 15 CREATED BUT ONLY THE FIRST SELECT WILL BE 
RETRIEVED ON LOOKUP 

4s IF A NEW LIST ENTRY IS TO BE MADE BUT THERE IS NO MORE 
ROUMs THE NEW LIST ELEMENT WILL OVERWRITE THE LAST 
LIST ELEMENT 

Se FDIeLISTs HEAD CONTAINS THE VALUEsSTACK ADDRESS OF THE 
FIRST ENTRY OF THE LINK LISTse IF =O THEN THE LIST IS EMPTY, 

66 IT IS IMPORTANT THAT FOI.ZNEXT BE THE FIRST FIELD OF 
FOeINFOse THIS ALLOWS FOTeLIST»eHEAD TO BE HANDLED THE SAME 
AS FOT.eNEXTsa CSEE FDeIN®O0 TEMPLATE) 


PROCEDURE ITSeAeTAPE VARYING3 
ls CHECKS FOR A TAPE DEVICE 
CCHECKS HOWRe INFO SUBSCRIPT) 


PROCEDURE ITSeAeDISK VARYINGS 
le CHECKS FOR A DISK DEVICE 
CCHECKS HOWRe INFO SUBSCRIPT) 


PROCEDURE FILEsCONTROLS3 
Le PARSES THE SELECT STATEMENTS OF THE FILE =“CONTROL PARAGRAPH 
26 BUILOS AN FOINFO TABLE ENTRY IN SELECTCED) ORDER SO THAT 
FO DECLARATION CAN BE ADDED TO ITS CORRESPONDING SELECT 


PROCEDURE IGNORE VARYING$ 
Le RECOVERS TO A NON®ZERO CATAGORY 
28 RETURNS 0 


PROCEDURE ERPs IGNORECERRMSG) VARYINGS 
16 OQUTPUTS THE ERROR MESSAGE 
26 RETURNSCIGNORE ) 


PROCEDURE ASSIGN VARYING3 
Le PARSES THE ASSIGN CLAUSE 
26 VERIFIES THAT HARDWARE NEQ SPO 
30 VERIFIES THAT SD FILES ARE ASSIGNED TO OISK 


PROCEDURE RESERVE VARYING3 
de PARSES RESERVE aoe ALTERNATE AREAS 


PROCEDURE MAKeFILEsLIMIT3 
le PARSES A FILE*LIMIT OPERAND 
2s GETS SPACE AT THE END OF THE FOINFO ENTRY 
36 UPNATES FOITePTR AND FILEsLImMITs TABLE*»BOUND 


PROCEOURE FILEsLIMITS VARYINGS 
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le PARSES FILE“LIMITS AREoss 

2. ADDS THE FILE*LIMIT PAIRS TO THE END OF THE FOINFO ENTRY 
36 A FILE*LIMIT=SO INDICATES THE END OF THE LIST 

4, PROCESSES "THRU END" AS @FFFFFE® 


PROCEDURE ACCESSs«MODE VARYING3 
ts PARSES ACCESS MODE IS eos 
2s INSISTS ON SEQUENTIAL FOR SD FILE 


PROCEDURE ACTUALsKEY VARYING 
1, PARSES ACTUAL KEY IS DATANAME 


PROCEOURE DUT VARYING3 
is VERIFIES THAT A HARDWARE DEVICE wAS SPECIFIED 
2s VERIFIES THAT ACTUAL KEY WAS SPECIFIED FOR A RANDOM FILE 
36 TF FILE LIMITS ARE PRESENT FOR ANYTHING OTHER 
THAN A DISK FILE FOI.FILEsLIMITS«FLG IS RESET 
AND NO SPACE FOR THE FILE LIMITS IS RESERVED IN 
FILE sL IMT Te TABLE se BOUND 
Ge RETURNS 
Os TKEYsCAT=SELECT 
2: OTHER 


PROCEDURE FILCTLeCLAUSES VARYINGS 
1s PARSES THE FILE CONTROL CLAUSES 
2e RETURNS 
O08 RECOVER 
it: GETS RECOVERS 
2% RETURN . 


PROCEDURE ERP*sSKIPITCERRMSG) VARYINGS 
1. sKIPS A SELECT DECLARATION Aree OUTPUTING THE ERROR 
Ze RETURNS! : 
OrlF STOPPED ON "SELECT" 
LrlF STOPPED ON A FIXED*NAME NEQ "FILE" 


PERCE TORS SSELECT3 
te PARSES THE*SELECT"DECLARATION OF THE FILE=CONTROL 
26 DELIVERS THE SELECT ATTRIBUTES TO THE FOseINFO TABLE 
30 RECOVERS FROM MISSING "5" 


PROCEDURE IeOeCONTROL3 

le PARSES THE RERUN» SAME CRECORD] AREA AND 
MULTIPLE FILE CONTAINS DECLARATIONS OF THE 
T*O*CONTROL PARAGRAPH 

2e THE MULTIPLE FILE DECLARATION IMPLIES A "SAME AREA" 
DECLARATION FOR THE FILE“NAME LIST AND NEED NOT BE 
DECLARED SEPARATELY 

3« THE SAME AREA AND SAME RECORD AREA Lists ARE MAINTAINEO 
IN FD OCUR ORDER WITH THE LAST LIST ELEMENT CONTAINING 

THE MAXIMUM SIZES FOR ALL THE LIST MEMBERS 


PROCEDURE PROPEReI sOsCONTROLsCLAUSE VARYING | 
LeRETURNS 1 IF THE CURRENT TOKEN £8 AN OeKe IseOeCONTROL TOKEN 
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PROCEDURE TOCseIGNORECERRMSG)3 
le RECOVERS TO AN JT*O*CONTROL CLAUSE AFTER OQUTPUTING THE ERROR 


PROCEDURE GOTs«AsFILE«sNAME VARYINGS 
1» PARSES A FILE*NAME LIST AND SEARCHES FODINFO FOR THE FILE 
2s PUTS AN ERROR IF NO FILE@NAME AND FOsCOUNTS0 
36 RETURN? 
Oz:NO FILE#*NAME 
LsFILE*NAME FOUND 


PROCEDURE MAKseSAME sAREAS 

1s RUILDS A LINK LIST OF FILE*NAMES APPEARING IN A 
SAMETRECORDIAREA FOR oee DECLARATION OR A 
MULTIPLE FILE TAPE ee« DECLARATION 

2¢ ALL ELEMENTS CF A GIVEN FILE*NAME LIST POINT TO THE FNHINFO 
ENTRY OF THE FILE*NAME IN THAT LIST THAT HAS THE LOWEST 
OCURCLOWsFDeOCURSPTR) 

36 REDUNDANT FILE=NAMES ARE ALLOWED 

Ge IF A FILE@“NAME APPEARS ON MORE THAN ONE LIST THE EFFECT IS 
THE SAME AS IF ALL THE FILES APPEARED ON THE SAME LIST 

Se THE HIeFOeOCUR ENTRY CONTAINS THE MAXIMUM RECORD WORK AREA 
SIZE OF ALL ITS LIST ELEMENTS 


PROCEDURE RERUN«+PARSES | 7 
le PARSES o¢s RERUN ON TAPE EVERY INTEGER RECORDS OF FILF*NAME 


PROCEDURE MULTIPLE. .PARSE3 
1s PARSES «ee MULTIPLE FILE TAPE "FILE*#IO" CONTAINS 
FILE=“NAME POSITION 1 ese 


PROCEDURE SAME.PARSE3 
te PARSES oase SAME CRECORDI AREA FOR FILE*NAMEsee 


PROCEOURE APPLYsPARSES 
PARSES ees APPLY MICR CAND/OR) OCR ON FILE*NAME Ces 


PROCEQURE MONITOR«ONDICTS 
Le PRINTS ODICT+sRECLODICT«PTRI 


PROCEDURE GET*NDICT#SPACE3 

le GETS SPACE FOR A ON DICTIONARY TABLE ENTRY FROM THE END 
OF THE DYNAMIC WORK AREACDYNeWA) AND PROCEEDING TOWARD THE 
DYN.PTR 

26 IF NO ROOM THEN THE Last GOOD SPACE 15 REUSED 

36 UPDATES SEGsINXeCOUNT AND SETS DDICTsPTR 

4s NDICTsSEG CONTAINS THE FOLLOWING FOR SEGMENT GATHERING! 
Os ALLOCATE TO SEGMENT OCEoGs 77 ENTRIES OF WS*SECTION) 
ls FORCE TO A NEW SEGMENTCEsGe FILE@RECORD WORK AREAS) 
2: MAY GATHER TQ A NEW SEGMENTCE «Ge O1 S OF WS*SECTION) 


PROCEDURE ALLOCATE sAN.O13 © 
Le ALLOCATES A RECORD DESCRIPTION OR A GROUP OF 77 ENTRIES 
20 FINOS THE MAXIMUMCLOCN*®LOCN MAX) 
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PROCEOQURE FILEsSECTIONS 
Le PARSES THE FILE DECLARATIONS OF THE FILE SECTION 
2e SELECTS THE LARGEST RECORD SIZE FOR STORAGE ALLOCATION 
36 CREATES FPB AND LABEL RECORD TOKENS ON THE SEGFILE 
4e UPDATES SAME AREA AND SAME RECORD AREA LISTS WITH MAXIMUM 
SIZES 


PROCEDURE CHKsFFILE3 
le PARSES THE FILE CONTAINS «oo. ATTRIBUTES FOR DISK FILES 
Ze MAKES FPBeRCOSsAREA A MULTIPLE OF FPBeRCOS+BLOCK 


PROCEDURE PROPERsFOeCLAUSE VARYING} 
Le RETURNS 1 IF CURRENT TOKEN IS AN OeKe FD TOKEN 


PROCEDURE IGNORE VARYING3 
1: RECOVERS TO A PROPER.FOeCLAUSE OR FIXED NAME 


PROCEDURE ERPs IGNORECERRMSG) VARYINGS 
1, OUTPUTS THE ERROR MESSAGE 
2. RETURNS IGNORE 


PROCEDURE FFILE VARYING : 
Le PARSES THE FILE CONTAINS oa CLAUSE OF AN FO 


PROCEODURE RRECORD VARYING 
le PARSES THE RECORD CONTAINS o6+ CLAUSE OF AN FD 
26 1S FOR DOCUMENTATION ONLY WITH THE SIDE EFFECT OF 
FPBseVARIABLE!1 FOR AN INTEGER RANGE 


PROCEDURE BBLOCK VARYINGS3 
1. PARSES THE BLOCK CONTAINS «ee CLAUSE OF AN FO 
2s SAVES THE RLOCKING FACTOR IN FPBeRCOS*BLOCK IF “RECORNDS" 
Is SPECIFIEDs ELSE IN FPBsMAXsBLOCKsSIZE 


PROCEDURE LABEL sRECORDS VARYING! 
Le PARSES THE LABEL RECORDS «es OF AN FD DECLARATION 


PROCEDURE RECORDINGs MODE VARYINGS 
Le PARSES RECORDING MODE IS «ee OF AN FD DECLARATION 


PROCEDURE IIN VARYINGS 
le PARSES THE VALUE OF ID IS eo 


PROCEDURE FDseCLAUSES VARYINGS 
1. PARSES THE FO CLAUSES 
2s RETURN 
OtRECOVERS? 
L:GETSRECOVERS 
2aRETURN 


PROCEDURE GET+sANsFD} 
1s PARSES AN FD eoo¢ DECLARATION 
2e CUMBINFS SELECT «es DECLARATIONS TO BUILD THE FPB 
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PROCEDURE ASSIGNeSEGs INXS 
Le SETS THE FOI.SEGaINX TO THE SEGeINX OF ITS PREDICESSOR 
In A SAMESAREA LIST OR ASSIGNS A NEW SEGMENT INDEX 


PROCEDURE FIXUP sONsDICTCSEGX»LGTH)3 
le FIXES UP DOICTsLENGTHCSEGX) ite THE MAXCDOICT« LENGTHsLGTH) 


PROCEDURE FO.01.ePARSE3 

Le PARSES O1 oes OF A FILE 

2e CHECKS FOR OUPLICATE RECORD NAME 

3¢ CHECKS FOR REDEFINES woe OF THE FILE RECORD 


PROCEDURE I[TSeAsLASELsRECORDS 
Le ASSIGNS DDICT(CO}] AS THE wORK AREA FOR THE RECORD 
2e KEEPS TRACK OF THE MAXIMUM RECORD SIZE 


PROCEDURE ITSsA RECORDS 
le SAVES THE FIRST O01 OCUR 
26 KEEPS TRACK OF THE MAXIMUM RECORD SIZE OF THE FILE 
36 IF RECORDING MODE IS ASCII* FORCES USAGE IS ASCII 


PROCEDURE FILEsRECORDS3 
te PARSES FILEsRECORDS AND FILE«LABEL*+¢RECORDS 
26 VERIFIES THAT FILE s0160CUR?0 


PROCEDURE FIXUP. FILE.SIZES3 
1, FIXES UP THE SIZES IN ODICT AND ONINFO 
26 FINDS FPBeBLOCKeSIZE AND FPRB*sRECORD «SIZE 
3¢ PUTS THE FPB AND FPB TRAILER TO THE SEGFILE 


PROCEOURE PARSE FILEsDESCRIPTIONS 
ls PARSES A FILE DESCRIPTION AND ITS FILEsRECORDS 
2s HANOLES ERROR RECOVERY FOR A RECORD DESCRIPTION THAT HAS 
NO FPB ASSOCIATED WITH IT 


PROCEDURE WS+SECTIONS 
le PARSES THE WORKING™STORAGE SECTION 
26 SELECTS THE LARGEST REDEFINED RECORD FOR STORAGE ALLOCATION 
36 PAYS SPECIAL ATTENTION TO LEVEL 77 ENTRIES 


PROCEDURE MAKsDN«DICT3 
le UPDATES THE DATA DICTIONARY ENTRY FOR A DATA SEGMENT 
CANDIDATE AND GETS SPACE FOR THE NEXT ONE 


PROCEDURE CHFCKsOLLREDEFINED3 

le CHECKS FOR REDEFINED O01 OF WORKING*STORAGE SECTION 

2s INHIBITS REDEFINITION OF AN O1 FILLER 

36 UPDATES SEGMENT INDEX FOR RECORDS WITH NO REDEFINES CLAUSE 

4 VERIFIES THAT THE REDEFINED OCUR=LAST RECORD OCUR OR 
THE OCUR OF A PRIOR RECORD OF A CHAIN 

Se RESETS THE LOCATION COUNTER AND SETS RODFNS*COUNT WHEN 
NECESSARY 


PROCEDURE DATSYNewINDUPS 
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1s GETS FPB ADORESS OF THE MONITOR FILE IF NECESSARY 

2a FIXES UP FILE*LIMITS AND ACTUAL KEY ADORESSES IN THE FPB 

36 FIXES UP FPBeWAs AND ONINFO ADDRESSES FOR FPBS ON THE 
SAME CRECORD)] AREA LISTS 


PROCEDURE FILL «HOWRe TABLECPIsP2sP3-P4)3 
le INITIALIZES THE HARDWARE TABLE 


PROCEDURE FILL«ADNsTABLECP1sP2)3 
Le INITIALIZED THE ALLON FILE CONTROL TABLE 


PROCEDURE DATSYNeSETUP3 

ls BUILDS PCeINFO TABLE AT THE BEGINNING OF THE 
OYNAMIC WORK AREA 

2s INITIALIZES THE ALLON FILE CONTROL TABLE AS FOLLOWS! 
AON@TSIZE BIT¢7) TOKEN SIZE FOR UNBLOCKING 
ADNeCASEV RITC4) CASE STATEMENT VARIABLE 

36 READS THE FIRST BLOCK OF THE ALLON FILE 

4s OPENS THE DNINFO FILE 

5s OPENS THE SEG FILE 
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EXPLODE «sADDITIONAL INFO 


INITIAL EXPLODE OoOuTPUT 
IF MONITOR THEN . ; 
MONITOR 
[DEPENDING] 
TFILEREC 
TOOT 
IF FILE LIMITS THEN 
FILEsLIMITS CRESERVED wORD) 
TINTGR FOR FILEsLIMIT. TABLE sBOUNDs sURS=BINARY LEN=3 LIT=BINARY BOUND: 
FOR EACH FILE IN FOIT« TABLE THAT HAS FILE LIMITS? 
TFILEREC 
FROM LIMIT (TWORD PC 9(8) CMP) OR CTINTGR URS=BINARY LEN#3) 
THRU LImIT (TWORD PC 9(08) CMP) OR CTINTGR URSsBINARY LEN23) 
TOOT 
PROCEDURE DIVISION 
IF DECLARATIVES THEN 
DECLARATIVES 


PROCEDURE BUILDs«SPECTALsREG3 
DIGIT DSEGO 


REGISTER - LENGTH ADR DATATYPE 
See dbocnrneee e8 sete aeeee eee bacescses 
Swi 1 0 4BIT UNSIGNED 

j 

a 
SwW8 i 7 4BI1T UNSIGNED 
TALLY 5 8 4BIT UNSIGNED 
DATE 5 i3 4BIT UNSIGNED (JULIAN YY DOD) 
TIME 7 18 4ert UNSIGNED CHHMMSST TeTENTH) 
TODAYS@"DATE 6 25 4BIT UNSIGNED (MMDDYY) 
TODAYS“*NAME 18 31 8RBIT ALPHA 


PROCEDURE CREATEsTWORDCOCCUR)? FORMAL OCCUR VARYINGS 
FOR USE RY FILEesLIMITS & FORWARD REFERENCES OF 3 
1, vALUE UF Ip IS DATANAMEs 2, ACTUAL KEY IS DATANAME,s 


PROCEDURE USE «SYNTAX3 
TO SYNTAX USE STATEMENTS? 
LeVERIFY FORMAT 
2eCHECK FUR DUPLICATES ASSIGNED YO A FILE 
3eVERIFY HARDWARE 
WeVERIFY LABEL RECORDS CLAUSE PRESENT FOR A FILE 
~SePLACE IN THE FPR TAILER THE EXPLICIT LABEL OCURS OF 
THE USE RTNES FOR EACH FILE 


PROCEDURE MAKeDNINFOs TABLES 
Le READS AS MANY DNINFO ENTRIES INTO THE ONTe TABLE AS WILL 
FIT AND UPDATES ONT «TABLEsOCURGMAX. 
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PROSYN PROCEDURE DETAILS 


Mea as ene Ot ava eee* en eaesnaana 


ROUTINE PUTeFROMe INPUTS 
MOVES TOKENS FROM ALLOFILE BUFFER TO CODEFILE BUFFER 


PROCEDURE PUT«¢OPERANDCA)$ FORMAL A VARYING} 
OPERAND=LITsTINDEXsTWORD»TCSPLsTCSPR*OR TFILEREC 


PROCEDURE FILL»eOPsSTACK VARYINGS 
MOVES NEXT TOKEN INTO NEXT AVAILABLE OPERAND STACK POSITION 


PROCEDURE GETeIT VARYING3 
BREAKS OUT NEXT TOKENs TYPE & MOVES TOKEN TO OPERANDe STACK IF 
AppLICABLE. IF SUBSCRIPTED TwORn TOKEN, SUBSCRIPT 
TOKENS ARE PuT INTO ADJACENT OPERANDsSTACK ENTRIESs 12/770 KH 


PROCEDURE HOMOGENEDUS+sLITCA»C) VARYING? FORMAL CAsC) VARYING3 
CHECKS A LIT TO SEE IF COMPRISED ENTIRELY OF SAME CHARACTERe 


PROCEDURE READeWRITE+SYNTAX VARYINGS 
TO SYNTAX READ WRITE RELEASE RETURN SEEK 
ADVERBsCNTRL OF FORMAT 
C1) IS KEYWORD VALIO FOR THE VERB 
(3) PRECEDENCE OF THE KEYWORD 
(3) WHAT IS EXPECTED TO FOLLOW 
NEED TAKES ON 1 OF 6 VALUES DEPENDING ON THE ITEM RECEIVED ON 
INPUT 
A TwWORD MUST FOLLOW 
A TwORD OR INTEGER MUST FOLLOW 
A TWURDsINTEGGR OR APPROPRIATE KEYWORD MUST FOLLOW 
A RESERVED WORD@VERB OR APPROPRIATE ADVERB MUST FOLLOW 
A VERB MUST FOLLOW 
AN APPROPRIATE KEYWORO MUST FOLLOW 


Mew nye Oo 


A™ OPERAND STK PTR’ TO TFILEREC 

B"@" OPERAND STK PTR TO FROM/INTO DATA NAME 

C* OPERAND STK PTR TO WRITE SPACING INTEGER OR DATA NAME 
F" OPERAND STK PTR TO FILE INFO 


PROCEDURE WHATsGOT FIXEDS 
BASED ON TYPE AND KEY 
PROVIDE A CASE VARIABLE VALUE OUTER IOCONTROL 
0 = TWORD 

- TINTGR 

KEYWORD 

VERB 

EVERYTHING ELSE 


fw) — 
a e@ @ 


PROCEDURE SORT« VERBS 
OuTPUT TQ GENRAT FOR SORT 
TRESWO ® SORT 


URSC1) INPUT PROCEDURE PRESENT 


TPERF OF INPUT PROC IF PRESENT 
TFILEREC OF SORT FILE 
WITH URS(C2) = 0 OS/DP CEND) 
=z 1 PURGE 
=z 2 RUN 
SERIES OF 
TRESWD = ASCENDING/DESCENDING 
SERIES OF 
TWORD KEYS 
TSTATESTOP 
ONE OF 


TFILEREC = USING FILE 
WITH URS(€?2) Of LOCK 


= RELEASE 
22 PURGE 
OR 
TPERF oF INPUT PROCs CDOUPLICATION) 
ONE OF 
TFILEREC = GIVING 
WITH URS(2) O=LOCK 
L=RELEASE OR 
TPERF OF OUTPUT PROC 
PROCEDURE OPENsCLOSE VARYING} 
VALIOeADVERBS TASLE ENTRIES 
0 NO OPEN CLOSE 
1 PURGE CLOSE 
2 REEL ° CLOSE 
3 REVERSED OPEN 
4 REWIND OPEN CLOSE 
5 ACCESS OPEN 
6 RELEASE CLOSE 
7 LOCK OPEN CLOSE 
8 WAS REMOVE OUT ON 02/01/73 
9 PUNCH OPEN 
10 PRINT OPEN 
41 INTERPRET OPEN 
12 STACKER OPEN 
13 HERE. POSSIBLY 
14 PACK POSSIBLY 
15 COOEFILE OPEN CLOSE 
16 CRUNCH CLOSE 
17 ROLLOUT. CLOSE 


PROCEDURE SET«e VERBS 
VALIO SET COMBINATIONS 


(TO) 
OBJ | SUBJ 
ON t IN 


IOr t ro! 
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Ior ¢ IN 

IN | LIT2 
IN | ON 

IN | IDI 

IN {| IN 
(UP/DOWN BY) 
OBy | SUR 
In ¢ LIT’ 
IN { DN 


DN “@ DNATA NAME = ELEMENTARY INTEGER 

IOI “ INDEX DATA ITEM 

IN @ INDEX NAME 

LITI" INTEGER LITERAL * NON“ZEROs LEQ 6 DIGITS 
LIT2* UNSIGNED LIT1 CCAN BE +) 


REARRANGING DONE FOR CONVENIENCE OF CODEGEN 
SETsVERB» SUBU» OBJ» [COBUs osalds TSTATESTOP 


FOR BOTH FORMATS THE SUBJECT IS REPOSITIONED AHEAD OF THE OBJECTCS)» 
“TOs "UP BY" R "DOWN BY" ARE DROPPED» AND TSTATESTOP IS ADDEN 


NOTE ™ FORMAT ENCODED IN URS OF SET VERB ON OUTPUT 
sOPTIONseSERTES.ZUNUSEDs 

« (2) « @1) es €5) é 

00 DOWN BY 

O1 UP BY -— 

10 TO 


APPROACH! le LOOK AHEAD TO "TO" ETC» COUNTING OBJECT OPERANDS» DOING 
GROSS SYNTAX CHECKING ON THE WAY 
26 SYNTAX CHECK THE SUBJECT OPERAND 
36 SET APPLICABLE OPTIONS IN URS* OUTPUT VERB* OUTPUT SUBJ 
We DETAIL SYNTAX CHECK & OUTPUT EACH OBJ 
Se RECOVER TO NEXT VERB/PAR: 


PROCEDURE PERFORM,.VERB3 
REARRANGING NONE FOR CONVENIENCE OF CODEGEN 
FORMAT 1 CVANILLA) @* NONE 
FORMAT 2 CTIMES) - pROP “TIMES” 
FORMAT 3 CUNTIL) = DROP "UNTILt'« CONDITION SUPPLIES BOOSTOPSs THEN 
FORMAT 4 CVARYING) = DROP "VARYING" s "FROM" s "BY" SMAFTER » 
CONDITIONS HANDLED AS IN 3¢ INSERT COPIES OF OPERANDS OF 
WVARYING" & “FROM CLAUSES FOLLOWING TPERF © FOR INITIALIZING CODE. 


NOTE “ FORMAT ENCODED IN URS OF TPERF ON OUTPUT 
OPTION VARYING 
(2) COUNT(2) #BITS 


95 


Q*3 ae ak VALUES 


NO TSTATESTOPS REQUIRED 


VALID PERFORM VARYING COMBINATIONS | 
"FROM" CLAUSE  CVARYING O8J FROM SUBJ) 


OBJ {| SURJ 

DN ¢ LIT 
ON ¢ ON 
xDN { IN 
IN f ON 

xInN t IDI 
IN Jf IN 

) LIT. 


wIN 


NOTE = Int | IN IS NOT PERMITTED SINCE IDI COULD NOT THEN BE 
LEGALLY INCREMENTED IN THE ‘BY! PHRASEs ACCORDING To 
to-  . SET! RULESs 


"By" CLAUSE CVARYING OBJ eee BY SUB) 
OBJ | SUBJ 
DN ¢ LIT 
DN | DN 
*IN | LIT . 
3s USED TO GET AUTOMATIC OuTPUT FROM CERTAIN INPUT TOKENS. 
*IN | DN 


DN |= DATA NAME = ELEMENTARY NUMERIC 
eIN © INDEX NAME CREQUIRES BOTH UPERANDS SATISFY SET VERB RULES) 
IDI = INDEX DATA ITEM 

LIT * NUMERIC LITERAL 


PROCEDURE EXAMINE. VERB3 


kax INPUT *an axe OUTPUT wee 
CASE I EXAMINE I CaSE I EXAMINE I CASE I EXAMINE I 
I TwORD I I TwORD I I TWORD I 
I TALLYING I I REPLACING I 1 I TWORD@TINTGRI 
1 I ALL*LEADING I 3 I ALL*#FIRSTs I 2 ¢ 3 I TWORD*TINTGRI 
I UNTIL FIRST I I LEADING» I ° 
I TWORO@*TINTGR I 1 UNTIL FIRST I 
I TWORD#“TINTGR I 
I REPLACING I I BY I 
2 I BY I I TWORD<TINTGR 1 


I TWORMSTINTGR I 
In ADDITION TO PROROSE ENON ABOVE A FIGURATIVE CONSTANT MAY RE USED. 
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CODEGEN PROCEDURE DETAILS 


REFERENCES TO FPB TRAILER OCCUR IN 

Le DATSYNSFIXUPSFILEeSIZES 

26 EXPLONESUSER ROUTINES 

32 CODEGEN?tIOVERRS ASSOCIATED wITH FILES 
4e FIXUPSBUILD FPBS 


PROCEDURE SEF eTOKENsOUTS 
Le CALLED ONLY BY PUTsTOKEN,. 
28 CALLED ONLY IF TRACE.CODEGEN. 
38 MONITORS ON LINE PRINTER TOKENS IN CODEBUFFER CA MISNOMER) «. 
THE OUTPUT BUFFER FOR THE SEGFILEs 
4s USED FOR DEBUGGING» 


PROCEDURE SEE eTOKENe IN 
le CALLED BY ANYONES 
2¢ CALLED GNLY IF TRACE +CODEGENs 
36 MONITORS ON LINE PRINTER TOKENS IN QPERAND STACK THAT ARE 
IN INPUT FORMATe 
4s USED FOR NERUGGINGs 


PROCEDURE FORCE «SEGFILECT)3 
le FINISHES OFF THE CURRENT “SEGFILE BUFFER WITH TEOQF OR TEOR. 
2e SETS UP FOR NEW BUFFERe 


PROCEDURE PUTseFROMsINPUTS 
1» MOVES TOKENS FROM ALLONFILE SUFFER TO CODEFILE BUFFERs 
2¢ CALLED BY GETsITs 


ROUTINE FILL +sUOPERANDsSTACK3 
1s CALLED BY GETeITe 
26 MOVES INPUT TOKEN TO OPsSTACKCAODSIJ« 


ROUTINE GET«IT3 
is GETS NEXT INPUT TOKEN.) 
‘26 MOVES TOKEN TO OPsSTACK IF APPLICABLEs 


PROCEDURE GETsQPERAND? 
te CALLS GETeIT TO PLACE TOKEN IN STACKe 
2e IF TOKEN IS A TwORD AND SUBSCRIPTED THEN 
MOVE SUBSCRIPT TOKENS INTO ADJACENT OPsSTACKS ENTRIESs 


PROCEQURE GET«¢TRASH(LsSCLoSoF sA)3 
le L LENGTH IN UNITSs 
26 SCL SCALE. 
36 8S SIGN CWseSatsK deo 
Qe F FORMATs 1 FOR 8BITs O FOR 4BIT. 
Se A ASCII « 1 FOR ASCII» 0 FOR EBCDICs 
66 BUILDS TwORD TOKEN IN OPseSTACKCAOS])» | 
7+ TOKEN HAS INLINE COP FOR NEXT AVAILABLE TRASH AREAs 
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Be CALLER MUST EITHER SAVE AOS BEFORE CALL OR USE LOI AFTER, 


PROCEDURE MAKEsTWORD ¢ WRELADRe Le SCL oSoFsA)3 
LIKE GET.TRASH & GETe«Cc.ePOOL BUT YoU TELL IT THE ApDORESS 
IF Az1 THEN ASCIT ELSE EBCDICs IF Fel THEN 8 BIT ELSE 4 BIT» 
BUILDS TwORD IN NEXT AVAIL OPERAND STACK LOCATION. 
CALLER MUST SAVE AVAILsOPsSTACK BEFORE CALLING THIS PROCEDURE. 


PROCEDURE FINDsPOWER(N)3 
le FINOS THE NUMBER OF BITS NECESSARY TO HOLD A GIVEN NUMBER 


PROCEDURE CHANGESIGN(CA)3 
1. EMITS CODE TO CHANGE SIGN OF AN OPERANDs 


PROCEDURE BUILD.INT CNEGeLIT »s FORMAL CNEG/LIT) VARYINGS 
PUTS TINTGR IN UPsSTACKECADS) 
IF NEG = 1 MAKES IT A MINUS LIT 
Lit MUST BE A HEX BIT STRING IsEe 73 = 8(4)738, 


PROCEDURE FIXUPsNCNsNSEG*NDISP)3 FORMAL CNsNSEGsNDISP) VARYING! 
FIXES UP "N" FOR MULTIPLE MOVES & COMPARES 


PROCEDURE RELATIVE*INDEXCI) VARYINGJFORMAL «VALUE I VARYINGS 
DETERMINES IF AN INDEXED Tworp HAS RELATIVE INDEXING» 
E.G. A € Is Jeis K*3 ) 
EXPECTING EITHER TINDEX OR TINDEX FOLLOWED BY SIGNED TINTGR = = 
“= = UP TO 3 INTERMIXED SINGLES OR PAIRS 


PROCEDURE REL+INDEXseCODE (193 FORMAL+eVALUE I VARYING3 
KOMP 
EMITS CODE TO RESOLVE RELATIVE INDEXES AND COMPRESSES OPsSTACK 


PROCEDURE MOVESIGNCASB)S oe 
Le CALLED BY MOVEGEN FOR NUMERIC TO NUMERIC MOVESs 
2. SENDING AND/OR RECEIVING IS J OR K SIGNe 
34 SENDING MAY BE A LITERAL® 


PROCEDURE PREPARE «LITCKoA2S 33 
ie K 2 TS K#SIGNs O IS OTHER. 
26 A 12 IS ASCII» O IS EBCOIC. 
36 S 1 18 MINUSs O 185 PLUSs 
Gs CREATES A LITERAL OF PLUS OR MINUS AND PUTS LIT TOKEN 
INDEX IN Le 


PROCEDURE SCALELITCA#B)3 FORMAL (AsB) VARYINGS 
AZOPERAND «STACK ANDRESS OF INTEGER OR REAL LIT TOKENs 
B=OPsSTACK AOR OF TWORD OR INTEGER OR REAL LIT TOKENs 


ERA ceu ne REALLY sSCALELITCAs Fal GTHsF eSCALE*BeSIGNED)S 
le A IS INDEX OF LIT TOKENs 
26 SCALES A LITERAL ACCORDING TO FeSCALE*® WILL RIGHT TRUNCATE. 
OR ZERO FILL SCALE IF NECESSARYs ; 
36 LEFT TRUNCATES THE LIT ‘IF NECESSARY. 
4s CALLER MUST EITHER SAVE AOS BEFORE CALL OR USE LOI AFTER, 
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Ss ORIGINAL TOKEN MAY BE 4 OR 6 BITs 

Ge FINAL TOKEN FORMAT IS 4 BITs 

7s. IF LIT IS SIGNED AND SIGN IS 8BIT MINUS OR 4BIT GDS THEN ~ 
SIGN ITS PRESERVED ELSE DROPPED.» 


PROCEDURE HOMOGENEOUS eLITCA2C) VARYING3. 
CHECKS A LIT TO SEE IF COMPRISED ENTIRELY OF a CHARACTER. 


PROCEDURE EselLITsaTOsAsLITCE 3 
TRANSLATES Epcole LITERAL INTO ASCII LITERAL IN NEXT AVAIL GpPFRAND, 


PROCEDURE pO.EnIT (MOL) VARYINGS FORMAL «VALUE MOI VARYING} 
PROCEDURE MOVEsDIGITS3 
SINCE REPEAT OPERATOR HANDLES UP TO 16 DIGITS AT A TIME 
THIS PRUCEQURE WILL HANDLE THOSE DATA ITEMS EXCEEDING 16 OIGITS 
END MOVEsOIGITS3 
PROCEDURE RUILD«eMASKS 
DETERMINES THE MASK FOR AN ENTE 
PLACES THE MASK IN THE OPERAND STACK BEGINNING AT AQS 
IF A DATA ITEM USES ALL POSSIBLE eorT SYMBOLS IT WOULD APPEAR AS3 
#67890043%67952 
THE MASK STRING IS DETERMINED BY THE ALGORITHM? 
INMOCMINI)D CAT MYDCLOGICALSIZE"@SCALE“1) CAT INUCDPT) CAT MVOCSCALE®1). 
‘END BUILDsMASK3 
See eevneseaeeseseoeoveeveeveseesevseeeseeseseeseenteeoeanvedvsseeveseeeeoecbsevnvnseeeoeeeeseee nesses 
IF DATA ITEM IS A J OR K SIGN THE FOLLOWING STEPS ARE TAKEN . 
le GET«TRASH IS CALLED = TO RESERVE DEST SPACE FOR A MOVE 
20 MOVEGEN @™ WILL CHANGE SIGN TO S*#SIGN 
MONITOR wILL DETERMINE IF AN EDIT IS NECESSARY 
IF SO IT Wiles 
de CALL GET* TRASH © TO RESERVE DEST SPACE FOR AN EDTE 
2«¢ DETERMINE THE MASK FOR THE EDTE 
END DOsEDIT3 


PROCEDURE MONITERCMONITER*OPERAND eo INDEX 3 

MONITOR CODING FOR DATA NAMES OR INDEXES 

INPUT: ALLONFILE FROM PROCEDURE SYNTAX CHECK 

OUTPUT! SEGFILE °° OPERATORS USED! CAT N* COPXI*0PND 1+ ee es 0PNDN 
EO0TE OPNDisCOPXis MASK 

EXAMPLES OF MONITOR AT EXECUTION: DATAVALUE = @XXXXXXeee ee XXKXXX 
GOPHER/HOLE (59699) © XXXXexXXx 

TOKEN FROM ALLONFILE? 

TYPE URS COPX BASIC COP FACTORS PCINFO ONFLG JUST BWZ MsADR MaLGTH 


€6) (4) (12) (53) C80) (74) €10) %¢€1) (€21) €24) (6) 
| *# * * OPERAND STACK * * * 

BEFORE GET*sTRASH AFTER GETeTRASH 

kewnwaeneansene | MI Keane eanan i MOT 

® ® ® x 

* TWORD * * TwORD * 

® * * ® 

ge enestawtannens t AOS gReeaeneneaneex | { O/ 

* * * ® 


* * * TwORDOD * 
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feenewuemanns kacaneewewenn= | ADS 
x * * * 
* * t * 
MONITOR COOING FOR PARAGRAPHS ANDO SECTIONS 
INPUT! ALLONFILE FROM PROCEDURE SYNTAX CHECK 
OUTPUT! SEGFILE <= OPERATORS USED? CAT N*#COPX1s0PND19 0608s 0PNDN 
INCL COPX 
EXAMPLE OF MONITOR AT EXECUTION! PARAGIRAFFE (CXXXXXX) 


TOKEN FROM ALLONFILES 


TYPE URS LABEL FLAGS SEG # 
(6) (4) (5) (7) 


FOLLOWED BY TNNLIT?3 
TYPE URS SCALE LENGTH LITERAL 
C6) ¢€4) (8) (6) (30 MAX) | 


PROCEOURE SZsERRe2COEST)3 FORMAL DEST VARYING3 
USED FOR ACCUMULATING SIZE ERROR INFO BY SETTING OVERFLOW TOGGLE FOR 
WADD A TO Bs Bi» B2eeeBN ON SE She” 
SE2 IS TuRNED OUT FOR ADD A TO BeesedADD A TO BNel 
SE3 IS TURNED OUT FOR ADD A TO BNe 

PROCEDURE CHECK.«REMAIN? 
/*x GRIGINALLY THE REMAINDER WAS TAKEN DIRECTLY FROM THE DIVINEND 
FIELD AFTER THE DIVIDE FOR THE QUOTIENT CCAUSE THATS WHERE THE 
MACHINE LEAVES IT)« HOWEVER» IF THE QUOTIENT IS TO BE ROUNDEDs THE 
REMAINDER CAN CHANGE SINCE 1 EXTRA DIGIT OF ACCURACY IS REQUIRENs 
EG 3 
DIVIDE 16 INTO 24742 GIVING PC99V9 1564 REMAIN = 08 
DIVIDE 16 INTO 247.42 GIVING PC99V9 ROUNDED 15.45(0465) REMAIN = O 
THEREFORE WE NOW 00 2 DIVIDES IF THE QUOTIENT IS To BE ROUNDED .s 
ALSO» ALA 83500 COBUL 3 
"THE REMAINDER IS CARRIED TO THE SAME DEGREE OF ACCURACY AS NFFINED 
IN THE PICTURE OF THE QUOTIENT AND ALL EXTRA POSITIONS ARE FILLED 
WITH ZEROS." «/ 


PROCEDURE SET*TRASH(A) VARYINGS FORMAL A VARYINGS 
SIRED BY ARITHEXP OUT OF GASeeeTAKES CARE OF NuTTy COBOL PC OF 99OPP & 
PPQOGeeeGETS CORRECT SIZE AND CREATES & BIT S*«SIGN TOKEN 


PROCEDURE ARITHsEXPRESSION VARYING3 
RETURNS OPseSTACK INDEX OF OPERAND CWHICH MAY BE A TRASH AREA FOR 
INTERMEDIATE RESULTS)« ARITH EXxPS ARE DELIMITED BY A RESEVED WORD OR 
TROGSTOPe THE BEGINNING OGPERAND FOR ARITHeEXP TO LOOK AT [IS IN 
LAST»eOPERANDsINDEX CSET BY FILLsOPERANDsSTACK)« 


PROCEQURE IQceEMIT.SFIXeMVN CLAPLAD3 
LA =OPND STACK PTR TO MSG TLITFIX LITERAL 
LA #OPND STACK PTR TO MSG AREA 


PROCEDURE RUILOC4BITsOLITCITEMALIT+e TOK) 
FORMATS A 4BIT TINTGR CUNSIGNED UNLESS PASSED A MINUS FIXED ITEm) IN 
OPERAND STACKs POINTED TO BY PASSED LIT«TOK 
MAXIMUM OF 6 DIGITS *= USED PRIMARILY BY INDEX*NAME HANDLERS 
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PROCEDURE ITUseFILEsINFOCRECeNUMsSTKePTRORW)3 
RW O= READ FILE 
l= wRITE FILE 
RECs«NUM= FPS NUMRER 
STK»sPTR= PLACE IN STACK FOR INFO®NOT POINTER 


PROCEDURE IUVERBS3 
PROCEDURES FOR ITO STATEMENTS WITH FILE REFERENCES 
OPEN*CLOSEsREADsWRITE*SEEK*SELECT*CONTROL® SORT 
RETURNS RELEASE j 


PROCEDURE JOeBUILD+PRINT3 
NOTE IOVERRS GLOBAL A IS PTR TO FILE REC 
B IS PTR TO TwORD OR TINTGR 
THAT SPECIFIES SPACING VALUE ™PROSYN PROVIDES A DEFAULT 
OF BEFORE 1 LINE * ALSO ALL LITS ARE CONVERTED TO THEIR 
24 BIT BINARY EQUIVALENT IN PROSYN 


PROCEDURE WHATsISe¢SPACING BITC4YS 
DETERMINE SPACING VALUE FOR COMM TO PRINTER 


PROCEDURE TO.SET«ID3 
GEN cant Yo SET FPB FILE ID 
CODE EMITTED 
MVN COMMeLIT*COMMsMSGs+AREA 
CUMMCACCESSé¢F PBS COMMeMSGeAREA READ FPB 
MVA PACKel De FPB.PACKs1ID 
MVA FILE sNAMEsFPRGAREA 
MVN COMMsLIT»COMMeMSGsAREA 
COMMCACCESS«¢F PB) s*COMMsMSGeAREA WRITE FPSB 


PROCEDURE GENeFILE*LIMITs¢RTNESS | 

TO GENERATE FILE LIMIT SAVE ANO CHECK RINES © 
A “FILE LIMIT" VERB IS OUTPUT FROM DATSYN FOLLOWED BY AN INTEGER 
ARRAY BOUND AND TFILEREC AND ALL FILE LIMITS 
FOR EACH FILE 
TWO RTNES ARE EMITTED AS NEEDED® 1 FOR SEQUENTIAL FILES AND 
1 FOR RANDOM ™ TO CHECK THE FILE LIMITS 
THERE IS A GENERAL FILE LIMIT wORK AREA RESERVED AND 
1 SPECIFIC AREA FOR EACH FILE wITH FILE LIMITS 
WHEN A LIMIT IS TO BE CHECKED THE FILE AREA IS mOVED TO 
THE GENERAL AREA 
INCLUDED IN THE AREA ARE 
is A 6 DIGIT FPB NUMBER 

USED ON SEG FILES FOR POSITIONING 
2a A 6 DIGIT FILE LIMIT INDEX INTO AN ARRAY OF ALL LIMITS 
3a A 6 DIGIT RECORD COUNT/ACTUAL KEY 
ws A 1 OIGIT OPEN FLAG 

QO= NOT OPEN 

FOR EACH FILE A RTNE IS EMITTED TO. "CAPTURE® LIMITS AT OPEN 


THE AREA SET ASIDE FOR EACH FILE DEPENDS ON ACCESS? 
RANDOM 3 
(6) FILE LIMIT INDEX 
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(6) RECORD # 
C1) OPEN BOOLEAN 


SEQUENTIAL? 
(6) FILE &¢ 
(6) FILE LIMIT INDEX 
(6) RECORD # 
FILE LIMITS STATEMENT CREATED FROM FILES WITH FILE LIMITS 
THE ORDER OF THE STMT IS? 
CL)VERB 5022 
C2) TINTGR LEN=3eSCL=0eFOR=8 © BINARY AMOUNT OF SPACE NEEDED FOR THE 
ARRAY CA LIMIT IS A FROM OR THRU VALUE)@ #0F DIGITS 
(3)N COMBINATIONS OF 
TFILEREC OF FILE ANDO 
M COMBINATIONS OF 
TWORD/TINTGR FROM LIMIT 
TWORD/TINTGR THRU LIMIT 
CTINTGR CONVERTED TO BINARY VALUE“LEN23s9FOR#86) 
C4) ToaT 


PROCEDURE CHNGsTOsINDEXEDS 
TO CHANGE FLeARRAY FROM A NON SUBSCRIPTED ITEM 
TO AN INDEXED ITEM WITH ee FLaGS ANO FACTORS 


PROCEDURE EMITsRANe CK eRTNI 
TO EMIT CONE TO CHECK FILE LIMITS ON A RANDOM FILE 

CODE GENERATED IS 3 
OFL(O) 
ZRO OPENsFLAGs=eL2 . 

Li CPN END@LIST»FROM CINDEXJsNEQL3 
ZRO REC#-EQLsL2 
OFLC1)  - 

L2 xliT 

L3 CPM L4esREC#>LSSsFROMCLINDEXIJ*GTR*¢ THRUCINDEX 20 
XIT 

L4 INC 12s INDEX 
BUN Li 


PROCEDURE EMIT.SEQsCKeRTNS 
TO GENERATE THE CODE FOR CHECKING SEQUENTIAL FILE LIMITS 


SEQUENTIAL FILE LIMIT CHECK ROUTINE CODE 


CPN REC#aFLeARYCINGEXJ4LEQ +43 REC# TO THRU LIMIT 
INC FLeARYsENTRYsLEN*® INDEX THRUSBUMP TO NEXT FROM 
CPN ENDsLISTeLIT»FLsARYCINDEXJ4NEQs #11 EOL TO FROM 


CAT 26 FILE +MSGeAREAD VERBS FPR¥SADVERB **POSN TO EOF 
MVN ENDesLISTeLIts RECH 

COMM 

xIT 


Li MVN FLsARRAYCINDEXIJ»sREC# REC# OF ARY TO FILE LIMIT WORK AREA 
CAT. 3e9FILEsMSGsAREASVERBAFPBRSADVERB*SRECH OF FL WORK AREA 
INC FLeARYsENTRYSLEN*s INDEX 
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L2 COMM FILE e«MSG.AREA 
L3 xIT 


PROCEDURE [0-SORT3 
OUTPUT FROM SORT? 


MVN OPENeoLITs MSGsAREA FIRST 5 INSTRUCTIONS PRESENT ONLY IF 
CUMM MSGeAREA INPUT PROCEDURE SPECIFIEDs OPEN ANN 
ALTER NANOR*ACON PRESENT IF PROC INDEPENDENT OVERLAY 


NTR INPUT*PROCEDURE cCLOosSe IS FOR SORT FILE 
MVN CLOSteLITs#MSGeAREA 
COMM MSGe«AREA 


MVN LITs KEYsTASLE SORT KEY DESCs TO TRASH 

MVN LIT* SORTeINFOs TABLE OTHER SORT INFO TO TRASH 

MVN TLITFIX*NSGeAREA SORT COMMe LIT (TO SORT KEY INFOQ) 

MVN TLITEIxXsmMSG,AREA SORT«KEY pEScC TRASH AnpReIN AND OuT FILES 
COMM MSGeAREA 

MVN OPENeLIT»MSGesAREA Last 5 INSTRUCTIONS PRESENT ONLY IF 

COMM MSGsAREA OUTPUT PROCEDURE SPECIFIED 

ALTER DANDR*ACON PRESENT IF PROC INDEPENDENT OVERLAY 


NTR OUTPUT PROCEDURE 
MVN CLOStEsLIT»MSGeAREA 
COMM MSGeAREA 
PROCEQURE TWORDs TINDEXCWoT) VARYING 
USED BY INDEX HANDLER KOMP 
APPKOACH ™ SUBTRACT 1 FROM w GIVING Ti 
MULTIPLY T1 BY I*S FACTOR GIVING Te 
Ww NOW POINTS TO T2e I IS UNDISTURBED 
PROCEDURE TIWNDEX*sTINDEXCI#J) VARYING3 
USED BY INDEX HANDLER KOMP 
APPROACH @ DIVIDE J BY ITS FACTOR GIVING Tl 
MULTIPLY T1 BY I"S FACTOR GIVING Te 
I NOW POINTS TO T@se J IS UNDISTURBED 
ALSO UPTIMIZES CASES WHERE I"S FACTOR IS A MULTIPLE OF 
J*S FACTOR AVOIDING DIVINE CODE 


PROCEDURE DECLARATIVEHOUSEKEEPINGS 
NECLARATIVES CAUSES PARITY AND LABEL USE RTNe ANALYZERS 
TO BE EMITTED FOR ANY FILE THAT 
1+ DOES NOT HAVE A SPECIFIC USE RTN ASSIGNED 
96 FOR PARITY * ONLY HARDWARE DEVICES THAT RETURN PARITY 
36 FOR LABEL ©@ TAPE ONLY 
THE ANALYZER DETERMINES DYNAMICALLY HOW THE FILE WAS OPENED 
AND CAUSES THE APPROPRIATE USE RTN TO BE EXECUTED 


PROCEDURE EXAMINE? 
THIS PROCEOURE WILL BE THE ONE CALLED IN THE EXAMINE IF SET 
ON THE DOLLAR CARDe REQUIRES THE EXAMINE S*0P IN THE INTERPRETER 


KEKEKHAAKEKER TYPES OF EXAMINE KeEKKAKEK ERED 
ltd EXAMINE DATANAME = 
TALLYING CALL) CLITERAL"1) CREPLACING BY LITERAL=21 
CLEADING) CDOATANAME 1 ) DATANAME©2) 


CUNTIL FIRST) 
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REPLACING CALL) (LITERAL ™3) BY (CLITERAL@4) 
(LEADING) CDATANAME=3) (DATANAME®4) 
(FIRST) 


CUNTIL FIRST) 


PROCEDURE EXAMINE se RYeCOMPARES3. 
THIS PROCFDURE WILL BE THE ONE CALLED IF THE EXAMINE IS NOT SET 
ON THE NOLLAR CARD. NOES NOT REQUIRE THE EXAM S#OP IN INTE*PRETER 


PROCEDURE SURSCRIPTEND.FIELD3 
CALCULATES THE BEGINNING ADR IF A SUBSSCRIPTED ITEM IS BEING ExAmINED 
MULTIPLYS THE ITEMt:S FACTOR Times THE VALUE IN THE SUBSCRIPT AT 
EXECUTION TIMEs THIS RESULT MINUS THE FACTOR IS THE BEGINNING ADR 


PROCEDURE FIRST-«OPTIONS 
HANOLES THE EXAMINE A REPLACING "FIRST" 8B 


PROCEDURE LARBEL»sPROCESSORS 
FUNCTIONS = GENERAL 
1. FIXUP LABEL TABLE FOR THIS OCUR CWHICH IS MAINTAINED BY THE 
GLOBAL COUNTER @ EXPLICITsLABEL 

2e EMIT TERMINAL“PARAGRAPH*OF*PERFORM*RANGE EXIT CODE IF REQUIRED | 

36 IF EXPLICIT*GO"TO*PARAGRAPH EM{T GOPAR OR BUN CODE 

46 CALL MONITOR CODE GENERATOR IF REQUIRED 

Se CHANGE TXPAR/TXSECN TO TXLABEL 
= ee es = © @ WHEN CHANGING SEGMENTS 

6e EMIT @FALLeTHRUY CODE CRUN 

7s FIXUP PSEUDO=CODE DICTIONARY & TSEGLINK 

Bs EMIT TSTOP» WRITE CODESUFFER ONTO SEGFILEs EMIT NEW TSEGLINK 
oes es aw we em MISC 

9s EMIT “SYSTEM"™ EXIT FOR TERMINAL PARAGRAPH OF A USE SECTION 

10, SET FIRST.»EXECUTABLE FOR FIRST EXPLICIT LABEL 


EXAMPLES OF REQUIRED CODE FOR CONTROL@=TRANSFERRING OPERATIONS 
FIXED SECTION O. OVERLAY SECTION 50. 


*% 


Pie * ALTROI4e16) 
* ALTRCI6s+4+6) 
* GOPAR(CO) 

PERFORM I2.e x Ile 
ALTRCIOe12) * ALTER 14 TO 15.6 
PERF CK1sOVERLAY) * ALTR°O14s16) 

* 

GO TO 13. ® ALTER I6 TO I7s 
ALTRCIOs13) * ALTRCI6s18) 
BUNCOVERLAY) « T2s 

* se = 
P2e« GO TO P4a | * PXITCKI) 
-GOPARCP2). « IT3e 
*® an ee 
P3. GO TOs . * [46 GO TO 166 
- GOPARCP3) P3 INITIALLY * GOPARCI4) 
oF COMMCABEND) POINTS TO #F « [5 
P4s ALTER P3 TO 13. * + 2s 
ALTRCP3s +A) * 16s GO TOs 


oA 


60 
B 
sC 


«D 
FOR 
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BUN(C +R NEXT SEQL SOURCE® GOPARC(I6) INITIALLY 
ALTR( 10013) t 0G COMMCABEND) POINTS To ¢G 
BUNCOVERLAY) ae & OF 
To Pi» P4, 17 DEPENDING ON Xer LAST SOURCE STATEMENT 
GOTDOCCOPXs Io 4D oPirPurtC ) * IN THIS SECTION 
ALTROIO0I7) . oes 
BUNCOVERLAY) * BUNCE) NEXT SEQL SOURCE 


NEXT SEQL SOURCE * . 
EXAMPLES OF REQUIRED CODE SEE LABEL «PROCESSOR 


PROCEDURE GOTUDEP ¢CA)3 FORMAL A VARYINGS 


SPECIAL STACK ENTRY *® INTERNAL TO GOTOOEP ONLY @ NEEDED TN EMIT 


PROCEDURE PERFORM} 
VALIO PERFORM VARYING COMBINATIONS & IMPLIED OPERATIONS 
NOTE @ wHERE INDExING Is uSEns SETsGEN IS CALLED By PERFORM 


OBJ 
DN 
DN 
DN 
IN 
IN 
IN 
IN 


OBJ 
ON 
DN 
IN 
IN 


DN 
IN 
Iv] 


WVARYING SUBJ FROM 08J« EQUIV *SET SUBUY TO OBJ 


SUBJ 
LIT MOVE 
DN MOVE * IN THESE CASES* IF ANY AFTER CLAUSESs 
IN SETsTO * ALL "FROM" SUBU*S MUST BE SAVED INITIALLY 
DN SET.TO. *® IN CONSTANT POOL: 
IDI MOVE * NOT REQUIRED FOR LITERAL SUBJ S OR 
IN SETsTO * WHERE GNLY SINGLE VARYING CLAUSE. 
LIT SET«TO 
*VARYING SUBJ « « « BY OBJ* EQUIV *SET SUBJ UP BY OBde 
SUBJ 
LIT ADDCLITsDN)3 
DN ADDN CON DN) 
LIT SETsGENCUPSBYsLITsIND3 
DN SET«GENCUPSBY* DNS IN)? 
“DATA NAME 
@INDEX NAME 


“INDEX DATA ITEM 


PROCEDURE SETsGENS | 
VALID SET COMBINATIONS & IMPLIED OPERATIONS 


O8NJ 
ON 
Io! 
IvI 
IN 
IN 
IN 
IN 
IN 


(TO) 
SUBJ 
IN OIVCFsINeDOND3 INCICON)3 
Ip! MOVE 
IN MOVE . 
LIT PRE*DEC1 LIT3 PRE*MULT BY FS MVNONEWLITSIN)S 
ON SUBC1Ls»ONsT)32 MULT OP s Ts IND} 
IOT MOVE 
IN MOVE #C(FACTORS EQUAL) 


INN DIVCFFsINNeT)S MULT(Fs Ts INS 


CUP/DOWN RY) 


OBJ 


SUBJ 
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IN LIT PRE@®MULT LIT BY FS INC/DECCNEWLITsSIN)DS 
IN DN MULTCF sONe TIS INC/DEC/CT®INDE 


DN "DATA NAME 

IOI *INOEX DATA ITEM 

IN “INDEX NAME 

INN "INDEX NAME HAVING DEFFERENT FACTOR 
LIT "INTEGER LITERAL 


PROCEDURE SEND.RECEIVES 

A @ MESSAGE 

B = FROM/INTO IDENTIFIER 

C = QUEUE NAME 

SEND JO") CFROM I9"2) TO ID" 3/LITERAL 
ON INVALIO™REQUEST $1 
ON Q"FULL $2 

RECEIVE TO*1l CINTO IN"227 FROM ID@*3/LITERAL 
ON INVALID®*REQUEST $1 
ON Q*EMPTY 82 
MOVE I0"2 TO I0"1 IF FROM 
MOVE COMMseLIT»MSG AREA. 
MOVE ID"3%s TRASH IF NOT IN SEG O OR IS LITERAL 
MAKP ID*™3/TRASH*MSG AREA : 
MAKP ITD*2sMSG AREA IF NOT IN SEG O 
COMM ; 
MOVE ID*1s1D#2 ; IF RECEIVE INTO 
FETCH PRESENT IF CONDITION OPTIONS 
CPN lsMSGaNEQs tA 
Si 

aA CPN 2aMSGseNEQs tB 
S2 

a=) 


PROCEDURE FIXUP«sCATsLEN 3 
TO UPDATE THE LENGTH OF THE RECEIVING FIELD ON A CAT 
THE LOCATION GIVEN IS THAT OF N IN THE INSTe AND 
THE RECEIVING FIELD HAS AN IN LINE COP 


PROCEQURE ALTERED«LIT FIXEDS 
TO SET LENGTH OF LIT TO PROPER SIZE*s CHANGE TO TNNLIT 
AND RETURN THE LENGTH 
LIT IS IN & BIT FORMAT 


PROCEDURE ALTERED» WORD FIXEDS 
TO SET LUGICALTIZE » ZERO COPX IF NECESSARY » CHANGE REAL TO INTEGR 
AND RETURN LOGICALSTIZE 


PROCEOURE XsQUALIFIESCI) VARYINGS 
TO DETERMINE WHETHER AN OPERAND QUALIFIES AS AN OPND OF A CAT 


PROCEDURE I0¢ADDsTOsCAT3 
TO CONTINUE CAT 
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PROCEDURE OPTIMAL.DISP FIXED) 
TO DETERMINE WHETHER AN INTERMEDIATE TRASH AREA REQ ON DISPLAY 


PROCENURE TOeBUILDeDISPeCOMMS 
TO BUILD A DISPLAY COMMUNICATE 
A IS A PTR TO THE TOKEN OF THE ITEM TO BE DISPLAYED 


PROCEDURE SEPeITEM$ 
TO DEVELOPE A MOVE OF A SINGLE ITEM TO BE OISPLAYED 
INTO THE APROPKIATE TRASH AREA < 


PROCEDURE DMseVERBS} 
GENERATE CODE TO EFFECT THE mCP COMMUNICATE CORRESPONDING TO 
A DATA MANAGEMENT VERBe ENTER ON VERB TRESWDs 


PROCEDURE DO+eSwITCH63 
INDICATES MONITOR DEPENDING SPECIFIED. 
WILL CHECK TO SEE IF SWITCH 6 = ZERO OR IF IT!S GREATERs 


PROCEDURE MONITORe INITIAL} . 
FOLLOWING PROCEDURE SETS UP THE WRITE SUBROUTINE FOR MONITOR 
CHECKS TO SEE IF MONITOR DEPENDING HAS BEEN SPECIFIED 
SETS UP THE LITERAL THAT IS MOVED TO THE RECORD MSG AREA 
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DATA MANAGEMENT 


Sem Gere nwenrnenaan a 


THE OM ADDITIONS TO THE COROL COMPILER WERE COMPLETED IN OCTOBER» 
19738 THE DEVELOPMENT WAS IN 4 STAGES? 


Le UNDERSTANDING WHAT OM IS AND HOW TO USE ITs 

2¢ DOCUMENTATION OF THE NECESSARY COMPILER CHANGES« 
30 IMPLEMENTATION. 

Ge TESTINGs . 


THE FOLLOWING IS AN EXPLANATION OF THE FLOW OF DATA MANAGEMENT 


CONSTRUCTS THROUGH THE COMPILER» THIS IS THE DOCUMENT THAT WAS USED 
FOR STEP 26 
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DATA@BASE SECTION NECLARATIONS 


DATASET 


<LEVEL* NUMRER> <DATASET*®NAMESD DATASET DOL*NUMBER «<0DOL #2 
CRETRIEVAL/ORDCERING KEY <KEY=NAME> DDL*NUMBER <DDL #> 
C<COMPUNENT@NAME@®1> £<COMPONENT*NAME&2>) o60)] cae 6 

SUBSET : 

“<LEVELSNUMBER> <SUBSET*NAME> SUBSET DDL® NUMBER <DOL #> 
TO <DATASET®NAME> DOL“NUMBER <DDL #> 
CC<COMPUNENT*NAME®1> C<COMPONENTSNAME@2>) soa des 


FORMAT QF THE ODL=NUMBER 


THE <DDL#> CONSISTS OF A STRUCTURE NUMBER 
FOLLOWED BY THE TIME AND DATE WHEN THE DATASET WAS CREATEDs 
THE FURMAT FOR THE DOL“NUMBER IS 2 


SSS HHtmMmMisSS MM/DD/YY 


THIS STRING OF CHARACTERS IS ENCODED INTO A 
A 64 BIT PATH DICTIONARY ENTRY BY MERGE 


O01 PATHsDICTse FORMAT BITC64)s 
O02 LOCKs«RIT BITC1i)» 
O02 MEDIAsBIT BITC1)» 
02 BEENsOPENED BITC)» 
O02 ExPLICIT.OPEN BITC1)» 
02 STR«NUMBER BITC12)» 
O2 OMeTImE BITC17)>» 

03 OMsHOUR BITCS)» 
03 DMseMIN BITC6)s 
03 OMsSEC BIT(6)>» 
02 DMeDATE BIT(C16)» 
03 OMeMONTH . BITC4)» 
03 OmeDAY - BIT(S)s 
03 DMe YEAR BIT(7)3 


OMSTATUS REGISTER 


THE OMSTATUS REGISTER IS 6 DIGITS LONG 
AND wILL BE SET BY EACH Dm COMMUNICATES 
A VALUE OF ZERO INDICATES NO EXCEPTIONs 


PARSE= ADD "DMSTATUS" TO THE RESERVE WORD LISTS. 
TRANSLATE THE SYNTAX UOMSTATUS (<EXCEPTION NAME>) INTO 
COMSTATUS = «<LITERAL>)«6 <EXCEPTION NAME>'S ARE RESERVED 


WORDS. 
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ONLY IN THIS CONTEXT« EACH- CORRESPONDS TO AN EXCEPTION NUMBERS 
<LITERAL > 


MERGE* ASSIGN MEMORY IN DSEGO 


EXPLODE™ EXPAND REFERENCES TO LOOK LIKE A TWORD 
AND SET CONDITIONS NAME FLAG SO DMSTATUS WILL ALWAYS RE A 
FULL RELATION IN PROSYNs THIS ALSO PREVENTS DMSTATUS FROM 
BEING USED QUTSIDE A CONDITION. 


PARSE 


le 


WHEN DATABASE SECTION IS DECLARED 

VERIFY THAT IT FOLLOWS THE FILE SECTION AND PRECEEDOS 
THE WORKING*STORAGE SECTION 

QUTPUT A DUMMY TXDN WITH LEVELS=OCLIKE wS*@SECTION) 
AND SYMBOLE"DATA@8ASE" 

SAVE THIS DAsSECTION OCUR AS A GLOBAL 

DATABASE «SECTIONS FLAG? =1 

VERIFY THE DATA@BASE SECTION TO CONSIST ONLY OF 

"Ol OSTNAME INVOKE ooo" ENTRIES AND "DB ooo “ENTRIES 


WHEN DB IS NECLARED 
SAVE THE NATABASE NAME 
OUTPUT THE DATABASE NAME AS A TNNLIT 


=“ OUTPUT A TXDN 


WHEN INVOKE IS DECLARED 


= VERIFY DATABASE +SECTION«sFLAG=1 AND LEVEL #01 


o2etk &€ te 


6a 


Te 


OPEN #DATA*BASE/DATASETsNAMECLIKE A COPY FROM LIBRARY) . 
WHERE DATA*BASE IS THE FIRST 9 CHARACTERS OF THE DATABASE@NAME 
SCAN PAST THE O1 DATASET*NAME OF THE SQURCE IMAGE 

AND SUBSTITUTE THE INVOKING DATASET*NAME 

MARK THE SCANNED SOURCE IMAGES wITH te" 


WHEN DATASET IS DECLARED 

VERTFY DATABASE «SECTIONS FLAG=1 

PARSE THE DODL™NUMBER 

ASSIGN AN OCUR TO FACH KEY*NAME WHERE 

LEVEL&=IF ORDERING THEN 51 ELSE 52 

MARK COMPONENT*NAMES AS TWORD WITH "DATABASE" AS A TQUAL 


WHEN SUBSET IS DECLARED 

VERIFY DATABASE sSECTIONsFLAG=1 

PARSE THE DOL*™NUMRER 

LEVEL ’%=#53 

NELETE THE TARGET DATASET@NAME 

PARSE THE TARGET ODL*NUMBER 

OUTPUT THE TARGET COMPONENT*NAME AS THORD WITH 
tHATA*BASE™ AS A TQUAL 


WHEN END OF DATA“BASE SECTION IS FOUND 
DATABASE «SECTION FLAGt#0 


WHEN FINO/MODIFY IS SPECIFIED 
OUTPUT THE COMPONENT#NAMES OF THE SELECTION 
EXPRESSION wITH "DATA@BASE™* AS TQUAL 


DICTIONARY PROCESSING 


is NO CHANGE 


QUALIFICATION RESOLUTION 


le ITEMS WITH LEVEL OF Si» 52s OR 53 HAVE 
SCOPE ONLY OF THEMSELVES 


Ze THE DBsSECTION OCUR INCLUDES ALL 
DATABASE ITEMS IN ITS SCOPE 


36 INHIBIT ERROR REPORTING FOR A TWORD 
WITH THE ONS«SECTION OCUR AS ITS QUALIFIER 
IF UNIDENTIFIED NAME THEN OCUR?=0 
IF INSUFFICIENT QUALIFICATION THEN 
OCURS=LAST OF THE OUPLICATES 
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MERGE 


NOTES8 

“" NO CONDITION NAMES WILL BE CONTAINED IN A DeTASET DESCRIPTION 
THEREFORE THE BUILDING OF THE 
CONDITION@NAME TABLE DOES NOT CONFLICT 
WITH THE BUILDING OF THE PATH INFO TABLE 


- 


DATAsBASE SECTION PROCESSING 


le FOR EACH O01 DATASET@NAME INVOKEsNOS=BUMP INVOKE «COUNT 


26 BASED ON THE STRUCTUREsNUMBER OF THE DOL“NUMBER 
ASSIGN A UNIQUE PATHsNO AND BUILD A CORRESPONDING 
PATH@DICTIUNARY*ENTRY IN THE PATHeDICTIOQNARY BLOCK 
ON THE SEGFILE WHICH CONTAINS THE UNTQUE ODDL*NUMBER 
CSTART THE PATHseNO AT 1) 


3e@ BUILD A TABLE RELATING THE DATASET OCUR TO ITS 
KEY"NAMES ANO THETR COMPONENT#NAMES 
AND CONTAINING THE INVOKE+«NO AND PATHeNO AND THE TARGET PATHeNO 
NOTE? IF THE TARGET DATASET OF A SUBSET IS NOT INVOKED 
THEN IGNORE THAT PATH AND ITS COMPONENTS WHEN BUILDING THE TABLE 
£eG ITS COMPONENT OCUR=0 


4s DROP ALL ATTRIBUTESCE «Ge DOL“NUMBER*s 
COMPONENT#*NAMESs ETCa) WHEN PARSING 
PATH DECLARATIONS 


5, FOR EACH DB» SAVE DATA BASE NAME CTNNLIT) IN A TABLE 
WITH ITS QCUR» DROP TNNLITs 


EXAMPLE 1 


02 STUDENTS DATASET ODL@=NUMBER 38 
ORDERING KEY STUDNAMES DDL*NUMBER 71 
CLASTNAMEs FIRSTNAME De 


ALL DN ADNFILE 

TXON TXONCSTUDENTSsLEVEL#02) TXONCSTUDENTS*sLEVEL #02) 
DATASET DATASET 

DDL*NUMBER 


TINTGR(38) | 
TXON TXONCSTUDNAMESsLEVEL S51 ) TXONCSTUDNAMESsLEVEL 251) 
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DDL*NUMBER 

TINTGR(71) 

( 

TWORD TWORDCLASTNAME) | : 
TWORD TWORDCFIRSTNAME) 

) 

‘ 

EXAMPLE 2 


02 COURSE SUBSFT DOL*NUMBER 8 
TO UNIV=COURSES DOL*NUMBER 14 
CDEPARTMENTs LEVEL) « | 


ALL ON ADNFILE 


TXON TXONCCOURSEsLEVEL#53) TXONCCOURSE*LEVEL#53) 
DDL*NUMBER 
TINTGR(8) 

TO 

DDL*NUMBER 

TINTGRO14) 

( 

TWORD TWORDCDEPARTMENT) 

THORD TWORDCLEVEL) 

) 

é 


PROCEDURE OIVISION PROCESSING 


GENERAL 


1s PARSE THE OM«VERBS WITH PARTICULAR ATTENTION TO 
THE RELATIONSHIP OF DATASET*NAMES AND THEIR PATHS 


2e QUTPUT THE INVOKEsNO ANDO PATHsNO AS 
TINTGR TOKENS FOLLOWING REFERENCES 
TO PATH NAMES 
34 THE CTsADVERB BITS FOR THE DMsVERBS ARE ARRANGED AS FOLLOWS! 


BIT MEANING 


i DISTINGUISHES INSERT FROM STORE OR REMOVE FROM DELETEs 
2 RECREATE 


3 DMSTATUS FORMAT 
O:rBINARY 
LsDOECIMAL 4 BIT 
WON EXCEPTION” SPECIFIED 
UPDATE 
MODIFY 
"1i SELECTION EXPRESSION TYPE 
O:NEXT 
1:PRIOR 
2tFIRST 
3¢LasT 
StNEXT AND “AT CLAUSE 
S5tCuRRENT 
6rvaT™ CLAUSE 
i2 PATH TYPE 
OIKEY 
1:DaTaSET 


N QV £ 


NOTEt NO SYNTAX CHECKING WILL BE DONE 
BY MERGE FOR THE EXCEPTION CLAUSE. 
IF THE CLAUSE IS SPECIFIED IT wILL BE 
OUTPUT AS IS 
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OPEN 


~ 


OPEN UPDATE <DATABASE*NAME> 
[ON EXCEPTION <STATEMENT> CELSE <STATEMENT>])) 


CTs.VERB=6 
CTsOBJECTENOT USED 
CTsADVERKS 
BIT 3 = DMSTATUS FORMAT 
OSBINARY 
TsDECIMAL 4 BIT 
BIT 4 S"ON EXCEPTION" 
BIT 5 =*UPDATE" 
CTei=BIT LENGTH OF Dm@#STATUS REGISTER 
CTe2=8ASE RELATIVE ADDRESS OF DM*STATUS REGISTER 
CT«s3=BASE RELATIVE ADDRESS OF QDATA BASE NAME 
CTse4sLENGTH OF DATA BASE NAME IN BITS 


MERGE QUTPUT 


TRESWD OPEN«DM 
TNNLIT DATABASE NAME 
TRESWD UPDATE 
<EXCEPTION CLAUSE> 
le VERIFY THAT IT IS A DATABASE*NAME 
2. CHANGE OPEN TO DMsOPEN BEFORE OUTPUTCNEW VERB) 


3s LOOK UP DATABASE NAME IN TABLE BY OCUR» OUTPUT THE NAME 


CLOSE 


CLOSE <DATABASE=NAME> 
CON EXCEPTION <STATEMENT> CELSE <STATEMENT> 1) 


CTsaVERB=7 
CTseOBUECTFNOT USED 
CTs¢ANVERA= 
BIT 3 =OMSTATUS FORMAT 
O:BINARY 
1:DECImMAL 4 BIT 
BIT 4 2*0ON EXCEPTION 
CTs1=BIT LENGTH OF OM*#STATUS REGISTER 
CTa2=2BASE RELATIVE ADDRESS OF DM*STATUS REGISTER 
CTe3=BASE RELATIVE AnDRESS OF DATA BASE NAME 
CTsGsLENGTH OF DATA BASE NAME IN BITS 


MERGE OUTPUT 


TRESWD CLUSEsDM 
TNNLIT DATA BASE NAME 
<EXCEPTION CLAUSE> 
le VERIFY THAT IT IS A DATABASE*NAME 
24 CHANGE CLOSE TO OMsCLOSE BEFORE OUTPUTC(NEW VERB) 


36 LOOK UP DATA BASE NAME IN TABLE BY OCUR» OUTPUT THE NAME 


CREATE 7RECHE ST 


ls 


2s 


CREATE/RECREATE <DATASET®™ NAME> 


CON 


EXCEPTION <STATEMENT> CELSE <STATEMENT? 1] 


CTs VERB=18 
CTsORJECTFINVOKEsNO® PATHaNO 
CTsADVERR= 


BIT 


3 =0MSTATUS FORMAT 


O8tBINARY 
TtDOECIMAL 4 RIT 


BIT 
BIT 


4 ="0ON EXCEPTION" 
8 s"RECREATE* 


CTsl=BIT LENGTH OF DM@*STATUS REGISTER 

CTse2=BASE RELATIVE ADDRESS OF DM*STATUS REGISTER 

CTe3=8IT LENGTH OF THE DATASET RECORD WORK AREA 

CTs42BASE RELATIVE ADDRESS OF THE DATASET RECORD WORK AREA 


MERGE OUTPUT 


TRESHWD 
TINTGR 
TINTGR 
TWORD 


VERIFY 


OuTPUT 


CREATE/RECREATE 

INVOKE sNUM OF DATASET®= NAME 
PATHeNUM OF DATASET*NAME 
DATASET@*NAME 

<EXCEPTION CLAUSE> 


THE DATASET*NAME 


THE DATASET*#NAME AND PATH INFO 


STORE 


~ 


STORE «<DATASET#=NAME> 
{ON EXCEPTION <STATEMENT> CELSE <STATEMENT>)) 


CTsVERB=16 
CTsOBUYECTRINVOKEs NO» PATHsNO 
CT.ADVERSS 
BIT 3. =PMSTATUS FORMAT 
OrBINARY 
TspECImMAL 4 BIT 
BIT 4 #"ON EXCEPTION" 
CTsl=glT LENGTH OF DM=STATUS REGISTER 
CTs2=BASE RELATIVE ADORESS OF OM*STATUS REGISTER 
CTs32BIT LENGTH OF THE DATASET RECORD WORK AREA 
CTeS=2BASE RELATIVE ADDRESS OF THE DATASET RECORD WORK AREA 


MERGE QUTPUT 


TRESWD STORE 
TINTGR INVOKEsNUM OF DATASET@“NAME | 
TINTGR PATHsNUM OF DATASET*NAME 
TWORD DATASET@NAME 

“EXCEPTION CLAUSE> 


leo VERIFY THE DATASET@NAME 


26 QUTPUT THE DATASET®*®NAME AND PATH INFO 


DELETE 


DELETE <NATASET@NAME> 
CON EXCEPTION <STATEMENT> CELSE <STATEMENT? J) 


CTsVERS=17 
CTeOBJECTHINVOKEsNOe PATHEND 
CTsADVERH= 
BIT 3 =OMSTATUS FORMAT 
OIrBINARY 
TIOECIMAL 4 RIT 
BIT 4 2*0ON EXCEPTION* 
CTelepltT LENGTH OF DM=STATUS REGISTER : 
CTse2=BASE RELATIVE ADDRESS OF Om@=STATUS REGISTER 
CTs32BIT LENGTH OF THE DATASET RECORD WORK AREA 
CTs#4*BASE RELATIVE ADDRESS OF THE DATASET RECORD WORK AREA 


MERGE OUTPUT 


TRESWD OELETE 
TINTGR INVOKEsNUM OF DATASET#@ NAME 
TINTGR PATH*seNUM OF DATASETSNAME 
TWORD DATASET@NAME 

<EXCEPTION CLAUSE> 


le VERIFY THE DATASET@=NAME 


2. OUTPUT THE DATASET*NAME ANDO PATH INFO 
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FREE 


FREE <DATASET=NAME> 
[ON EXCEPTION <STATEMENT> CELSE <STATEMENT? 2) 


CTs VERB=21 
CTsOBYECTSINVOKE.NOs PATHsNO 
CTsADVERR= 
BIT 3. =NMSTATUS FORMAT 
OtBINARY 
LeDECIMAL 4 BIT 
BIT 4 "ON EXCEPTION" 
CTelzBIT LENGTH OF OmM=STATUS REGISTER 
CTs22HASE RELATIVE ADDRESS OF DM*=STATUS REGISTER 


MERGE OUTPUT 


TRESWO FREE 
TINTGR INVOKEsNUM OF DATASET@NAME 
TINTGR PATHsNUM OF DATASET*NAME 
TWORD DATASET@NAME 

EXCEPTION CLAUSE> 


i, VERIFY THE DATASET=NAME 


24 OUTPUT THE DATASET*NAME AND PATH INFO 


INSERT/REMOVE 


1s 


INSERT <DATASET@NAME> INTO <SUBSET@NAME> 
CON EXCEPTION <STATEMENT> CELSE <STATEMENT?2) 


REMOVE CURRENT FROM <SUBSET“NAME? | 
CON EXCEPTION <STATEMENT> CELSE <STATEMENT?1)) 


CTseVERB=16 FOR INSERT» 17 FOR REMOVE 
CTsQOBJECTSINVOKE.NOs PATHsNO OF SUBSET"@NAME 
CTseADVERRS 


BIT 1 =ON 
BIT 3 B20MSTATUS FORMAT 
O:BINARY 


LeOECIMAL 4 BIT 


BIT 4 


a"ON EXCEPTION" 


CTel2zBIT LENGTH OF Om@STATUS REGISTER : 
CTse22BASE RELATIVE ADDRESS UF DM*STATUS REGISTER 
CTs B2=INVOKE eNOS PATHseNO OF DATASET*NAME 


MERGE QUTPUT 


TRESWD 
TINTGR 
TINTGR 
TWORD 

TINTGR 
TINTGR 
TWORD 


INSERT/REMOVE 


~ENVOKEsSNUM OF DATASET*@NAME 


PATHsNUM OF DATASET*NAME 
DATASET*NAME OR TRESWO CURRENT 
INVOKE oNUM OF SUBSET*NAME 
PATHsNUM OF SUBSET™NAME 
SUBSET@=NAME 

“EXCEPTION CLAUSE> 


VERIFY THE DATASET*NAME TO BE A 
PROPER TARGET DATASET OF THE SUBSET*™NAME 
AND OUTPUT IT WITH ITS PATH INFO 


OUTPUT THE TARGET DATASET*NAME AND ITS PATH INFO 


CT«eVERBS ARE LIKE THOSE FOR STORE AND DELETEs 
THEY ARE OLSTINGUISHED BY BIT 1 OF CT«VERBs 


FOR REMOVE*s 


INVOKE NUM AND PATH NUM OF DATASET ARE ZEROs 
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12? 


“FIND/MODIFY 


CURRENT PATH FORMAT 


FINO/MODIFY CSDATASET@NAME> VIA] 
<DATASET"NAME>/<SUBSET*NAME>/<ORDER®™ NAME>/<RETRIEVAL *NAME> 
CON EXCEPTION <STATEMENT> CELSE <STATEMENT>)} 


ORDERED ACCESS FORMAT 


FIND/MODIFY C<DATASET#*NAME> VIA) 
NEXT/PRIOR/FIRST/LAST 
<DATASET@NAME>/<SUBSET®NAMED> /<ORDER*NAME> 
CON EXCEPTION <STATEMENT> CELSE <STATEMENT>)) 


RANDOM ACCESS FORMAT 


FINO/MODIFY (COATASET*NAME VIAI 
CNEXT] <SUBSET*®NAME>/<ORDER@NAME>/SRETRIEVAL @NAME> 
AT <COMPONENT@NAME“1> = <DATA*NAME*1>/<LITERAL™1> 
CAND <COMPONENT@NAME@2> = <DATANAME@2>/<LITERAL@2> lowe 
[ON EXCEPTION <STATEMENT> CELSE <STATEMENT>)] 


NOTE? THE "<DATASET#=NAME> VIA" CLAUSE IS MANDATORY 
WHEN THE PATH IS A <SUBSET*NAME> 


CTsVERB=15 
CT.OBJECTZINVOKESNOs PATHseNO OF THE PATH#NAME 
CTsADVERB= 
BIT 3 FOMSTATUS FORMAT 
OLrBINARY 
LIOECIMAL 4 BIT 
BIT 4 =ON EXCEPTION" 
BIT 6 ="MODIFY" 
BIT 7"11eTYPE OF SELECTION EXPRESSION 
O:NEXxT 
1:PRIOR 
2:FIRST 
3:LAST 
G4tnExT AND "AT™ CLAUSE 
5 iCURRENT 
6r"aAT" CLAUSE 
BIT 12 =TYPE OF PATH 
O8KEY — 
LIDATASET 


CTel#BIT LENGTH OF DM@STATUS REGISTER 
CTse2=BASE RELATIVE ADDRESS OF DM=STATUS REGISTER 
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CTs32BIT LENGTH OF THE DATASET RECORD WORKAREA 

CTs4=BASE RELATIVE ADDRESS OF THE DATASET RECORD WORK AREA 
CTsS2BASF RELATIVE ADDRESS OF SEARCH KEYCCAT OF COMPONENT NAMES) 
CTs6SINVOKE®NO* PATHsNO OF DATASET@NAME ~ 


MERGE OUTPUT 


TRESWD FIND/MODIFY 

TINTGR INVOKEsNUM OF DATASET*NAME 
TINTGR PATHsNUM OF DATASET@NAME 
TWORD DATASET*®NAME 

TINTGR INVOKE«sNUM OF THE PATH 
TINTGR PATHsNUM OF THE PATH 

TWORD PATH NAME 


CTRESWD NEXT/FIRST/PRIOR/LASTI 


<SELECTION EXPRESSION> 
<EXCEPTION CLAUSE> 


WHERE <SELECTION EXPRESSION> IS! 


lo 


30 


Ke 


TWORD COMPONENT @=NAME 
TRESWO "a" 
TWORD/LITERAL 

‘ 

‘ 

’ 


VERIFY THE PATH NAME TO BE A PROPER PATH 
TO THE DATASETENAME AND OUTPUT THE PATH INFO 


OUTPUT THE TARGET DATASET®NAME AND ITS PATH INFO 
(SUPPLY THE PARENT OCUR AS A TWORD TOKEN 
IF THE DATASET®NAME IS OMITTED) 


VERIFY THE COMPONENT@NAME LIST TO BE IN THE PROPER ORDER WITH NO 
NAMES MISSING FROM THE LIST 


THE TYPE OF THE PATH NAME IS DATASET IF BIT 7 OF THE ONFLAGS 
1S ON IN THE PATHNAMEs THIS BIT IS USED AS THE FILLER FLAG IN 
THE DATA DIVISIONs ; 7 


DATSYN 
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le WHEN DATASET IS DECLARED ALLOCATE A SEPARATE WORK AREA FOR IT 


2¢ WHEN AN ENTRY WITH LEVEL#51» 52s OR 53 IS DECLARED» 
TREAT IT LIKE AN 88 


36 VERIFY THE UNIQUENESS OF THE 01 DATASET*NAMES WITHIN A DB 
AND DATA RASE NAMES 


EXPLODE 


ds CHANGE TWORD TO TINDEX FOR ITEMS wWITH 
LEVEL S51 THRU S3(NONE IN PROCEDURE RESOLVE «FACTORS? 
IN ORDER TO RESTRICT THE USE OF PATH NAMES To 
THE DMs VERBS 


PROSYN PROCESSING 


is PARSE THE “ON EXCEPTION o«e" CLAUSE OF THE DMs VERBS 


CODEGEN 


te GENERATE COMMUNICATES CORRESPONDING TO DM VERBS 


FIXUP PROCESSING 


le 


34 


PATHsDICT+RLOCK( PDR) 


{ NOT USED | <emevsueeeas 
| meow eas ne ussonnanas | 
{ODL sNUMBERC64 BITS)I 


| meanest at anacmananae { 


{ | <"#=PATHSeNDO 


[ msm aacanwnocaweus | 


THE COMPILER ASSIGNS A PATH NUMBER T 
PATH NAME DECLARED IN THE DATA™AASE 
CEeGs DATASET*NAMEs SUBSET™NAMEs 
ORDER*NAMEs RETRIEVAL@NAME) 


THE PATH DICTIONARY BLOCKCPDB) CONTA 
PATH DICTIONARY ENTRY CPDE) FOR EACH 
THE PDE CONTAINS THE 64 BIT DOL“NUMB 
ASSOCIATED wITRH THAT PATH NAMEa . 


THE PATHsNO AND INVOKEsNO ARE USED T 
THE DESIRED PATH TO A DATASET RECORD 
IS USED AS AN INDEX INTO THE PATHsDI 
TO GET THE NADL«*NUMBERse THE INVOKE+sNO 
IS USED TO IDENTIFY THE INFORMATION 
A DATASET RECORD WHERE THAT DATASET 
HAS BEEN INVOKED MORE THAN ONCE, 


PPB” 

| ' 
i 
{ 
l 
jevnranawnaennaeneannaane 
IPATHsDICTsBLOCKePTR 


1 
i 
i 
{ 
| 
| @ee ranean ease eens = | 
{ 
l 
{ 
| 
{ 


—— — —_— 


O EACH UNIQUE 
SECTION 


INS A 
PATH NAMEs 
ER 


O IDENTIFY 


s THE PATH®NO 
CTIONARY 


ABOUT 
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SAMPLE DATA@BASE SECTION 


\ 


DATA@BASE SECTION, 
OB UNIVERSITIESs« 
O01 STUDENT INVOKE UNIV@“PERSONNEL. 
®O1l UNIV®PERSONNEL DATASET DOL“NUMBER 88 
ORDERING KEY PERSNAMES DOL“NUMBER 73 
CLASTNAMEsFIRSTNAME ) 
RETRIEVAL KEY PERSHMAUORS DDL *NUMBER Be 
(MAJOR) 
RETRIEVAL KEY PERSAGES DDL*NUMBER 2 
CAGE D« 
O2 NAME ® 
03 LASTNAME PC XC15). 
O3 INITIAL PC X¢ 
O03 FIRSTNAME PC X(10)s 
02 SEX PC 9 CMP. 
O02 AGE FC 99 CMP, 
02 CORSE*NOS OCCURS Ge 
03 DEPT PC XXe 
03 NMBR PC 999 CMPe | 
02 COURSE SUBSET DDL@"NUMBER 86 
TO UNIV*COURSES DOL@“NUMBER 14 
(DEPARTMENT»LEVEL Jo 
O02 MAJOR PC xX€4)— 
O2 SALARY PC 9(5)V99 CMP. 
02 ADVISOR SUBSET DOL®*NUMBER 16 
TO UNIV@PERSONNEL DOLSNUMBER 886 
O1 FACULTY INVOKE UNIV"PERSONNELs 
®O1 UNIV®PERSONNEL DATASET DDL“NUMBER 88 


*@2 4 4% @He Oe BH ee He BH HHH OH HH BS 


GRDERING KEY PERSNAMES DDL"NUMBER 73 
CLASTNAMESFIRSTNAME ) 
RETRIEVAL KEY PERSMAJORS DDL “NUMBER 82 
(MAJOR) 
RETRIEVAL KEY PERSAGES DOL"=NUMBER 2 
CAGED. 
O2 NAMEs- 


03 LASTNAME PC x(10)0 
O3 INITIAL PC Xa 
03 FIRSTNAME PC X(€10)6 
O2 SEX PC 9 CMPs. . 
O02 AGE PC 99 CMP, 
O2 CORSE®NNS OCCURS Ge 
03 DEPT PC XX. 
03 NMBR PC 999 CMPa 
O02 COURSE SUBSET DODL*NUMBER 8B 
TO UNIV*COURSES DOLSNUMBER 14 
(DEPARTMENT*sLEVEL Do 


*@er8tsnt + 6A #e ee KH EH EHH FH 
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OCUR INV# PATH# TGT# CN 


anata Geese Bante seen oe 


01 
02 


03 
04 


05 


06 


01 
01 


01 


01 


01 


01 


02 
02 


02 


02 


02 


01 
02 


03 


04 


05 


07 


01 
02 


03 


04 


05 


01 
01 


01 


01 


06 


Oi 


01 
01 


01 


01 


25 
34 


29 


44 


25 
34 


29 


41 


CN 


27 


42 


27 


02 MAJOR PC XC4)a 
O02 SALARY PC 9(5)V99 CMPe 
02 ADVISOR SUBSET OCOL®NUMBER 16 
TO UNIV®*PERSONNEL DDL@NUMBER BB8e 
O1 U@COURSES INVOKE UNIV@COURSES. 
OL UNIV@®COURSES DATASET DDL*=NUMBER 14 
ORDERING KEY DEPTLEVELS DDL*NUMBER 32 
CDEPARTMENTsLEVEL) | 
RETRIEVAL KEY CLASS®*SZ DDL*NUMBER 34 
CCLASS®SIZE) 
RETRIEVAL KEY DEPTS DDL@*NUMBER 12 
(DEPARTMENT), 
O2 DEPARTMENT PC XX. 
O2 LEVEL PC 999 CMP, 
O2 PROFESSOR SUBSET DOL“=NUMBER 33 
TO UNIV@PERSONNEL ODL*NUMBER 88. 
02 BOOKS DATASET NDOL@NUMBER 7o 
O03 TITLE PC X(60)-. | 
O03 AUTHOR PC XC30)6 
O2 DAYS*0F=“WEEK PC XXXe 
02 BUILDING PC 999 CMP.a. 
Q2 ROOM PC XXe 
O2 CLASS*SIZE PC 99 CMP. 
O02 STUDENTS DATASET DOL“"NUMBER 38 
OROERING KEY STUDNAMES DOL@“NUMBER 71 
CLAST*@NAMESFIRST™NAME D6 
O03 LAST*TNAME PC xXC(15), 
03 FIRST=NAME PC X(10).6 


* 2 % 8 


+2 ee BeBe e+e eRe £Eee ee He HH Hee He 


PATH DICTIONARY TABLE 


PATHsNO STRUCTURE «NO 


SO an ee * Buena naann a 


0 NOT USED 
i 88 
2 73 
3 82 
4 02 
5 08 
6 14 
7 16 
8 32 
9 34, 
10 12 
i1 33 
12 07 
13 38 
14 71 


GENERAL COMMENTS 


7 


02 
03 
03 
03 


03 


03 


03 


03 
03 


07 


06° 


08 
09 


10 


11 
12 
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01 
06 
06 
06 


06 


01 
12 


13 
13 


44 


50 


4i 


53 


le THE SOURCE IMAGES WITH AN “** ARE PROVIDED BY THE DASDL COMPILER 


42 


26 
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AS A LIBRARY FILE TO THE COBOL COMPILER 


THE INVOKED NAME ITS THE NAME OF THAT FILE AND 
IS NOT A PROPER DATANAME CF THE DATSET 


—CEeGe SHUNTIVERSIT*/"UNIVePERSO") 


36 


Ms 


66 


THE NAME "STUDENT REPLACES THE WORD “UNI V®PERSONNEL™ AT OCURS3 
THE NAME "UNIV=PERSONNEL" IS DELETED WHEN IT APPEARS AS THE 
TARGET DATASET@NAME OF ADVISOR AT OCCUR219 AND OCUR=36 


"MNATA@BASE™ SECTION APPEARS TO BE A FILE NAMECOCUR=1) 
WHOSE SCUPE INCLUDES ALL DATAsBASE DATANAMESCSCOPE=54) 


COMPONENT NAMES APPEAR TO BE QUALIFIED BY 

WDATA®BASE” AND MUST NOT BE QUALIFIED WHEN REFERENCED 
THIS SPECIAL NAMING CONVENTION ALLOWS UNIDENTIFIED 
COMPONENT@NAMES IN THE CASE WHERE THE TARGET DATASET@NAME 
OF A SUBSET IS NOT INVOKED 

WHEN OUPLICATE COMPONENT NAMES EXIST THEN THE OCUR OF 
LAST OF THE DUPLICATES WILL BE RETURNED . 

CEeGe LASTNAME APPEARS AT OCURSS AND OCUR=25) 

NDL WILL GUARANTEE THE UNIQUENESS OF COMPONENT®NAMES 

IN THE DATABASE 


THE INVOKE NUMBER STARTS AT 1 AND IS BUMPED FOR 
EACH INVOKE SPECIFIED 


THE PATHsNO IS ASSIGNED BY SEQUENTIALLY 

SEARCHING THE PATHsOICTIGNARY. TABLE FOR A 

MATCHING STRUCTURE NUMBERs IF A MATCH IS NOT 

FOUND THEN THE NEW STRUCTURE NUMBER IS ADDED TO 

THE END OF THE TABLEs THE INDEX INTO THE TABLE 

1S THE PATH*#NO«s NOTE THAT THE DOLSNUMBER IN THE EXAMPLE CONTAINS 
ONLY THE STRUCTURE NUMRBERCTHE TIME AND DATE PART 

HAS BEEN OMITED FOR CLARITY) 


PATH TABLE AND ALGORITHM FOR ITS CONSTRUCTION 
DECLARE 
1 PATHse TABLE REMAPS RBASEs 
2 PATHsOCUR BITC12)» 
2 LASTsENTRYsLINK ~ BITC24)»a 
2 PATHsTYPE BIT(C3)s 
2 INVOKE «NUM BITCB)» 
2 PATHeNUM BIT(C8)s — 
2 TARGET sPATHsNUM BIT(8)»s 
2 COMPsOCURCMAXeCOMP) BIT(12)>» 
1 TARGETs«¢STACK (€16)>» 
2 TSsLEVEL BITCB)s 
2 TSsePATH BIT(8)3 
“FIND A PATHNAME 


TXDON FOLLOWED. BY "DATASET" OR TXON WITH LEVEL NUMBER 51°53: 
STOP ON “WORKING=STORAGE SECTION® OR "PROCEOURE DIVISION", 
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“FILL IN PATH*sOCUR 


FILL IN PATH@TYPE 
DETERMINE TYPE FROM LEVEL NUMBER ss 


LEVEL TYPE 

01 0 DATASET#*NAME 

02749 i DATASET@"NAMECNESTEDO) 
Si 2 ORDER™@NAME 

52 3 RETRIEVAL *®NAME 

93 4 SUBSE T*NAME 


eIF LEVEL = O14 THEN CURRENT INVOKE NUMBER GETS BUMPED, 
@FILL IN INVOKE «NUM 


“FILL IN PATHsNUM | 
DETERMINE FROM LOOKING UP DDL# IN PATH DICTIONARYS IF NOT 
FOUND» AND NtwW ENTRYo 


@eADUUST TARGET STACK 


POP STACK UNTIL LEVEL ON TOP IS LESS THAN CURRENT LEVEL COR 
STACK EMPTY)« IF CURRENT LEVEL < 50 (DATASET) THEN PUSH NEW ENTRY« 


“FILL IN TRGT+«¢PATHeNUM Zs 
IF TARGET DOL# IS EXPLICIT» FIND FROM PATH DICTIONARY» ADDING A 
NEW ENTRY IF NECESSARYe IF TARGET IS IMPLICIT THEN USE PATH 
ON TOP OF TARGET STACKse 


* FILL IN AN OCUR FOR EACH COMPONENT@NAME WHICH 
FOLLOWS IN THE PARENTHESIZED LISTs AND AN EXTRA 
OCUR OF ZERO » TERMINATING THE LISTe 


DESIGN FEATURES +s 


SOURCE LANGUAGE SELECTIONs 
MULTI®PHASE COMPILATIONs 
DEBUGGING CAPABILITIES. 
DYNAMIC MEMORYa 
INTERMEDIATE FILE DESIGNe 


INITIAL PARSING CPARSE), 


INPUT FILESs 

OUTPUT FILES~ 
GENERAL FUNCTIONS. 
RESERVED wORD LOOKUP. 
SPECIAL FUNCTIONS. 
MONITOR SENTENCE, 
DATE*COMPILEDs 
OBJECT@=COMPUTER, 
SPECTAL“NAMESs 

DATA DIVISION: 

FILE SECTION: 
WORKING@STORAGE SECTIONs 
PROCEDURE DIVISIONs 
DYNAMIC MEMORY<: 
INPUT FILES« 

QUTPUT FILES=s 
GENERAL FUNCTIONSs 
DICTIONARY SEARCH. 
DYNAMIC MEMORY, 
PASS Ie 

PASS Ile 


INPUT FILES, 
QUTPUT FILESs 
GENERAL FUNCTIONS, 
SCOPE OF AN ENTRYe 
DYNAMIC MEMORY: 


INPUT FILES. 
QUTPUT FILESs 
GENERAL FUNCTIONS: 
DYNAMIC MEMORY. 


MERGE 6 


INPUT FILESe 
OUTPUT FILES. 
GENERAL FUNCTIONSs 
DYNAMIC MEMORY. 


DATA DIVISION SYNTAX CHECK 


INPUT FILES. 
OUTPUT FILES» 
GENERAL FUNCTIONS. 
DATA SEGMENTATION. 
DYNAMIC MEMORYs 


TABLE OF CONTENTS! 


DATA*NAME QUALIFICATION RESOLUTION CONQUAL)« 


LABEL QUALIFICATION RESOLUTION CLQUAL De 
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